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ABSTRACT 


Prototyping is an important software development method to rapidly construct 
software, validate and refine requirements, and check the consistency of proposed 
software designs. This thesis describes the design and implementation of a CASE 
tool to be used in conjunction with the Computer Aided Prototyping System (CAPS) 
which retrieves and prepares reusable components for use in PSDL (Prototype 
system Description Language) prototypes. Reusable components and their PSDL 
specifications are stored in an software base. 

Components can be retrieved from the software base via its Object-Oriented 
Data Base Management System (OODBMS) using PSDL to formulate queries. All 
of the PSDL specifications for the reusable components are normalized and stored 
in the software base to support efficient search based on a given query PSDL 
specification for a software component. The search process is based on both 
syntactic and semantic matches between the query and stored components. 

Our software base has been designed to be easily configured to support 
Storage and retrieval of reusable components in any programming language with 
the initial configuration for Ada components. 

A window based user interface was also implemented to allow easy access to 


the software base via the CAPS user interface as well as stand alone use. 
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I. INTRODUCTION 


This thesis addresses the issues related to the design and implementation of an 
automated reusable software component retrieval system. The purpose of the system is 
to support the Computer Aided Prototyping System (CAPS) [Ref 1]. CAPS is an 
ongoing software engineering research project at the Naval Postgraduate School. The 
reusable component retrieval system is a critical component in the CAPS tool set. 

This chapter provides an introduction to computer aided prototyping and the need 
for automated retrieval of software components. Chapter II details the current state of 
the art in component reuse and reusable component libraries. Chapter IV is an overview 
of CAPS and its specification language, Prototyping System Description Language 
(PSDL), used for specifying reusable components. Chapter IV presents the design and 
implementation of the software base for CAPS. Chapter V contains the conclusions of 
this research and recommendations for future research. Appendix A details the usage of 
PSDL to specify reusable components. Appendix B contains the source code for the 
software base system. Appendix C is the source code for the generation of the PSDL 
parser. Appendix D presents an example of how to integrate reusable Ada components 
into a CAPS prototype. Appendix E provides the specification for the software base 
command line interface. Appendix F is a users manual for the software base graphical 
user interface. Appendix G is the source code for the software base graphical user 


interface. 


A. THE SOFTWARE CRISIS 


Creating software for hard real-time and embedded computer systems is a complex 
process. The complexity of this task has created a situation where the demand for these 
systems currently exceeds the ability of the software industry to develop them. 

The United States Department of Defense (DOD) is the world's largest user of 
embedded computer systems. In the mid 1970's the gap between the growing demand for 
high quality software and industry's inability to meet that demand caused the DOD to 
investigate potential solutions to the problem. The DOD concluded that the problems 
"..appear in the form of software that is non-responsive to user needs, unreliable, 
excessively expensive, untimely, inflexible, difficult to maintain, and not reusable.” 
[Ref. 2:p41] 

One of the results of this investigation was the development of the Ada programing 
language. Although Ada provides some capabilities to overcome the shortcomings noted 
by the DOD additional software tools are still required if the software gap 1s to be closed. 
These tools are especially needed in the areas of requirements analysis and refinement, 
software validation, and software testing. The design and implementation of tools in 


these areas continues to be a major focus of software engineering research. 


B. STRUCTURED ANALYSIS 


A widely used design methodology that attempted to address the issues in software 
development is Structured Analysis [Ref 3:p78]. Structured analysis breaks the creation 
of software systems into distinct areas or steps, which is essentially a variation of the 
"waterfall" model in DOD-STD-2167A [Ref 4:p10]. 

Its first step 1s requirements analysis. During this step the actual needs and external 
interfaces of the system are identified and recorded. The second step is functional 
specification of the system. Functional specification uses the requirements from the first 
step to specify the proposed external functionality of the software system. The third step 
in structured analysis is system design. During the design step the internal aspects of the 
system are specified. This design is then used in the fourth step, which is system 
implementation. After the system has been implemented the system 1s tested and 
delivered. After initial system delivery the software enters its maintenance phase. 
Maintenance of the system follows the same basic approach with each change going 
through requirements analysis, design, and finally implementation. 

If at any time during this approach an inconsistency 1s identified the process reverts 
back to the appropriate step to correct the problem. This method of software 
development has been called the "waterfall approach" because the system goes from one 
step to the other as though going down a waterfall. Figure 1 is a graphic representation 


of classical structured analysis. 





Figure 1 - Classical Structured Analysis 


This approach has been modified [Ref 3] to make the steps in the model less distinct 
and allow more parallel effort. The steps were made less distinct because in practice it 
was found that information discovered in later steps sometimes required earlier steps to 
be modified. The ability to complete steps in parallel is possible because some functions 
lower in the cycle can be performed while higher level items are being completed. This 
parallel] activity can greatly enhance the efficiency of the overall effort and allows for 
more feedback between steps. 

In order for this approach to work there must be a means of communicating the 
results of each step other than plain English. This is because English prose can be 


amibiguos and if is very difficult to verify the consistancy of a written document. 


Several representations were developed in order to convey this information. These 
representations include Data Flow Diagrams (DFD's), Context Diagrams (CD's), Entity 
Relationship Diagrams (E/R Diagrams), State Transition Diagrams (STD's), and Data 
Dictionaries (DD). These representations make it possible for the developers to 
communicate with each other the behavior of a proposed system. 

One of the deficiencies of structured analysis is that the English prose used to 
describe portions of the requirements of the system often is not precise enough to define 
critical subsystems. This is very important where failure of a real-time or embedded 
system to meet a given requirement could result in injury or death. Most military 
software systems and medical systems fall into this category because failure can result in 
life threatening circumstances. 

Several high level specification languages have been developed to solve these 
problems. These languages support formal specifications of critical portions of the 
system. From these formal specifications the system can be verified to achieve the 
required functionality. One such specification language is SPEC [Ref 5: p82]. SPEC 
can be used to rigorously specify critical sections to avoid ambiguity. 

Communication between a software development team and the system's end users 1s 
difficult using structured analysis. This communication is vital since in most cases the 
software development team is unfamiliar with the domain of the proposed system while 
the domain experts (end users) are unfamiliar with many of the representations used in 


the development of the software system. 


Although DFD's, CD's, E/R diagrams, STD's, DD's, and formal specification 
languages are very useful for communication between software engineers, many end 
users are unfamiliar and/or uncomfortable with them. This results in potential mistakes 
Or misconceptions between the developers and the users in the early stages of a project 
that can go undetected until the first executable version of the system has been 
completed. The development of this first executable version of a system Can Consume so 
much of a projects allotted development time or budget that it may be too late or costly 
to make any major modifications. This results in the end user being forced to accept a 


system that does not meet their original expectations. 


C. RAPID PROTOTYPING 


One promising area of software engineering research that addresses this problem 1s 
rapid prototyping [Ref 6]. A prototype is an executable model of a proposed software 
system, usually including a software simulation of the system's hardware external 
interfaces. The prototype accurately reflects chosen aspects of the system including 
display formats, correctness of computations, and real-time constraints. 

Prototyping attempts to solve the communications problem by rapidly developing a 
prototype of the proposed system from available information and then using that 
prototype to communicate to the user[Ref 7]. The executable prototype presents a view 
of the system that the user is most familiar with. This allows the user to provide 


feedback to the design team that can be used to update the prototype. This feedback 


process continues until the user is satisfied that the prototype accurately describes the 
needs of the system. At this point the prototype system itself acts as one of specification 
tools for the final system. 

There are two problem areas in the acceptance of prototyping as the preferred 
software development technique. The first is that the process of creating and modifying 
prototypes must be rapid enough to avoid the same resource consumption pitfalls of 
classical structured analysis. The second difficulty is that typically prototype systems are 
used only as a guideline for the final system. Yourdon states "when the modeling is 
finished, the programs will be thrown away and replaced with REAL programs." 

[Ref 3:p98] If all of the prototype system is completely discarded it becomes 
questionable as to how effective the prototyping approach is at reducing software system 
development cost and time. 

Without addressing these two issues prototyping could actually increase the overall 
development time and cost of the system as compared to structured analysis. Clearly to 
fulfill the promise of rapid prototyping it is necessary to overcome these difficulties. 

The solution to the first problem is the development of computer aided prototyping 
systems that enable the rapid development of executable prototypes. To achieve this 
rapid evolution of executable prototypes it is necessary to achieve a very high rate of 
code reuse instead of creating the entire prototype from scratch [Ref 8]. The solution to 


the second problem is to implement the prototype with code of sufficient quality that 


only those modules that require performance enhancements need be re-implemented to 
produce the final system. 

With this in mind it is clear that for rapid prototyping to be of maximum benefit, 
reusable component libraries containing many high quality components coupled with 
powerful query techniques to identify components for reuse are mandatory. The 
remainder of this thesis discusses CAPS and the development of a reusable component 


software base that fulfills these requirements. 


D. THE COMPUTER AIDED PROTOTYPING SYSTEM (CAPS) 


The Computer Aided Prototyping system is designed as a rapid prototyping system 
for hard real-time systems. CAPS prototypes a system through translation of the high 
level specification language Prototyping System Description Language (PSDL) into Ada 
code along with the incorporation of atomic Ada reusable components [Ref 9]. The 
concept of using both specification translation and atomic component composition makes 
CAPS a unique prototyping tool. PSDL is unique in that it provides a rich set of 
real-time constraints to enable the prototyping of hard real-time systems, and automatic 
translation of these timing constraints into Ada tasking information. 

The use of composition of atomic components allows for the use of high quality 
reusable Ada components to provide the majority of the code to implement the prototype. 
PSDL is used to specify the interface and functionality of the atomic components to 


make automated searches of a reusable component library feasible. 


The software base subsystem of CAPS has been designed to allow the user to create 
a PSDL specification of a necessary component and then perform an automated search 
of the library for preexisting candidate implementations of the specification. Automation 
of the search of the software base is critical because the software base must be able to 
grow indefinitely without significantly degrading the users ability to locate components 
for reuse. As the software base grows larger fewer components will need to be manually 


coded, thus achieving a system that provides greater power with time. 


E. GOALS OF THIS THESIS 


The goal of this thesis is to describe the design and implementation of a software 
base system for the CAPS prototyping environment. The theoretical foundations for 
component matching, the development of algorithms to take advantage of these concepts, 
the design of a database structure that enables the efficient implementation of the entire 
system, and a description of how to obtain the maximum benefit of using this system are 


discussed. 


Il. REUSABLE COMPONENT LIBRARIES 


As the gap between the demand for software systems and the software industry's 
ability to meet it became obvious, so did the need to reuse existing software components. 
Many retrieval systems have been proposed and implemented that address this issue. 
Several of these systems are discussed in this section. 

In order to compare and contrast these retrieval systems it is necessary to develop a 
metric by which the systems can be evaluated. How well an information system 
performs is based on the nature of the objects that are returned for a given query. The 
two most useful measures of performance for a retrieval system are precision and recall 
[Ref 10]. Precision is defined as the ratio between the number of relevant components 
retrieved and the total number of components retrieved. Recall is defined as the ratio 
between the number of relevant components retrieved and the number of relevant 
components in the database. Precision and recall are both maximal when they equal 1. 

There is a tradeoff between precision and recall. It is easy to have a system 
maximize One but not the other. If the system returns all objects in the database than 
recall will always be 1 but precision will be very low. On the other hand if a query only 
yields one relevant component than precision would be 1 but recall would be low. 

In order to obtain maximum reuse of existing software components in a given 
collection of components, queries on that collection should have a recall value of 1. 


Without a recall of 1, components that could be reused will be missed. The system also 
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needs a high degree of precision because it is possible to spend more time manually 
searching through the results of a component query with low precision than it would take 


to implement the component manually. 
A. RETRIEVAL METHODS 


Almost all of the tools developed to assist in reusing software components use one 
(or more) of three different approaches for retrieval of components; browsers, informal 
specifications, or formal specifications. For this reason a general overview of these 
retrieval methods is presented followed by a discussion of some existing tools that use 
these methods. 

1. Browsers 

A browser is a tool for looking through a collection of software components. 
The interface for a browser can range from simple text through complex graphical user 
interfaces. The goal of all such systems is to allow the user to direct a search through the 
available components. 

The advantage of a browsing system 1s that the user is given complete control 
over the retrieval process. This can be important for users who are familiar with the 
content of the software collection and want ae ability to quickly traverse the structure of 
the collection to find components that they know are in the collection. 

The first disadvantage of the system is that it has very low precision. The user 


may have to look at all of the components to find the one that is desired. Because of the 


11 


manual nature of the search, as the software collection grows the time the user spends 
browsing also increases. 

The second disadvantage of browsing is that the system relies on the users 
knowledge of the structure of software collection. Without such knowledge a user will 
have difficulty in directing a search to retrieve a desired reusable component. 

The third disadvantage of this type of a system is that unless the user finds 
exactly what they are searching for, there 1s no clear termination point for the search until 
every component has been reviewed. 

2. Informal Specifications 

This technique requires the user to describe or list some attributes of the 
component that they are looking for. This informal description is then used to direct the 
user to the appropriate components. Examples of some common attributes are keywords 


and natural language interfaces. 


B. KEYWORD SEARCH 


A keyword searching mechanism requires the user to specify a list of 
words relevant to the component being sought. The keywords the user chooses can be 
drawn from a known system vocabulary (controlled vocabulary) or they can be 
unconstrained (uncontrolled vocabulary). In the case of uncontrolled vocabulary 
synonym tables are often used to normalize the keyword selections into a known 


vocabulary. 


Ez 


The advantage of the keyword query is that it is conceptually simple and 
reduces the number of components that the user must review. Because of this simplicity 
many of the software component retrieval mechanisms reviewed in the next section 
employ some aspects of this technique. 

There are two basic disadvantages to this approach. The first one is that 
the precision and recall of the system depend on how many keywords are used for the 
query. Using only one keyword typically will result in a very large number of 
components (high recall, low precision). Using too many keywords could miss possible 
candidate components (high precision, low recall). 

The second disadvantage is that the user must be familiar with the 
structure of the keyword categories that are being used by the collection administrator to 
achieve maximum benefit form the system. Without such knowledge a user can easily 


miss potential candidates that match their needs. 


C. MULTI-ATTRIBUTE SEARCH 


A multi-attribute search is really just an extension of the keyword 
concept. Instead of using only keywords for forming a query, other attributes of the 
search component can be used as well. These attributes includes the class of component 
(procedure, function, package, etc.), the number and type of parameters used, its domain 


of use, etc. 


The advantage of this type of system is that by using more than just 
keywords the search can be more selective. All of the attributes taken together make up 
a Classification scheme that provides more information than keywords alone. 

The disadvantage to this type of system is that the collection 
administrator must identify the attributes for stored components and the user must 
identify the attributes of the component that is desired. If the user succeeds in filling in 
the same attribute values as the administrator will a query be successful, otherwise the 
query mechanism must be capable of identifying when two attributes are "close" to being 
the same. 

1. Natural Language Interfaces 

Natural language interfaces for information retrieval is a growing field of 
computer science research. An advantage of this system is the ease in which a user 
describes a desired component. 

The difficulty in this approach is that due to the broad semantics of the English 
language, implementation of these systems have had to constrain the language used to 
form a query. As the number of constraints on the query language grows the system 
begins to be more like a multi-attribute system. 

2. Formal Specifications 

The use of formal specifications to direct a reusable component query can be 

very beneficial. Because specifications systems such as SPEC and OBJ3 [Ref 11] are 


based on predicate calculus they are free from ambiguity. This means that formal 
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specifications can be transformed into normal representations without changing their 
meaning using logic and term rewriting rules. 

Matching of specifications allows queries that achieve both high precision 
(formal specifications enable conclusive demonstrations that particular components do 
meet the requirements in a query) and high recall (through term rewriting it is possible to 
allow candidates with appropriate functionality to be located even if the author of the 
component did not anticipate the components being utilized in this context). 

The primary disadvantage of this approach is that writing formal specifications 
for components is difficult and requires software engineers with advanced skills. 
Another disadvantage is that automated matching of formal specifications can be time 


consuming. 
D. REVIEW OF CURRENT SYSTEMS 


I. Draco 
The Draco project was born in the early 1980's at the University of California, 
Irvine. The Draco approach to software reuse is essentially a multi-attribute query 
system. Software components are organized into problem areas or domains. Queries are 
constructed by the formulation of a tuple of attributes that best characterizes a particular 
domain. Each domain uses a different set of attributes for its queries. This type of 


classification of components has been called faceted classification [Ref 12]. 


In evaluating the effectiveness of faceted classification Draco researchers 
compared it to a system using no classification scheme. Using faceted classification the 
number of components retrieved was reduced by more than 50% yet the precision of the 
queries was 100%. 

The advantages of faceted classification are that it is conceptually simple for 
users and relatively easy to implement. Because of this, the concept has been borrowed 
to implement the retrieval methods in both RAPID and OSS (See sections B.2 and B.3). 

One of the disadvantages of this type of system is that semantically similar 
components may be missed because there attribute definitions are different. Draco 
addresses this issue by maintaining a measure of conceptual closeness for the term lists of 
each attribute. This allows unsuccessful searches to be tried again using an alternate but 
similar term for one of its attributes. 

Another disadvantage of this system is that components in other domains that 
may be useful are easily missed. This puts the burden on the user to ensure that they 
have selected an appropriate domain for their search. 

2. Rapid 

The RAPID (Reusable Ada Packages for Information System Development) 
project is an ongoing effort in the Department of Defense. The objective of RAPID is to 
provide software engineers with quick access to reusable Ada packages in the 
information systems domain. The system performs reusable component classification, 


storage and retrieval. 


RAPID uses a faceted classification scheme to organize and retrieve 
components and thus uses multi-attribute searches [Ref 13]. The system is currently 
being beta tested but no measures of performance or quality assessments are available 
yet. 

3. Operation Support System 

The Operation Support System (OSS) is an ongoing project aimed at 
developing an integrated software engineering environment. The system is being 
developed at the Naval Ocean Systems Center. One of the goals of the project is to 
establish a Naval software library of reusable software components. 

The current prototype library subsystem allows for component retrieval using 
faceted classification (See section B.1), keywords, or simple textual browsing. The 
components currently stored in the library are for command, control, and 
communications and intelligence (C*I) systems. Due to the early stages of this project no 
information is available on the performance characteristics of the system. 

4. The Reusable Software Library 

The Reusable Software Library is a system design by Intermetrics to make 
software reuse an integral part of the software development process. Components in this 
system are stored in a database with attribute values that provide the basis for a search. 
There are two methods available to search for a component. These methods are based on 


multi-attribute and natural language searches. 
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The multi-attribute search provides a menu driven system in which the user 
selects the attributes desired for the search. Alteratively the user may express the query 
in a natural language form such as "I want a stack package for Integers." The system 
parses this natural language input for keywords and forms a multi-attribute query from it. 

The designers of the system report [Ref 14] that the natural language front end 
is considerably easier to use but the search speed is significantly slower. No additional 
measures of performance were provided. 

5. Common Ada Missile Packages 

The Common Ada Missile Packages (CAMP) project is an effort sponsored by 
the Department of Defense to create a software engineering system and reusable software 
library of components. The system is directed toward software for missile systems and 
uses Ada as the source language for its reusable components. 

The main part of the reusable component system is the Parts Engineering 
System (PES) catalog. The PES catalog is similar to a card catalog for books. The 
catalog system, used by both software engineers and domain engineers, is written in Ada 
and provides a menu driven interface for storing, modifying, and retrieving components 
(parts). Queries to this system are of the multi-attribute type. 

Users select a set of attributes to search for from a predetermined finite list of 
values. The system then queries on each of these attributes one at a time. The results of 
these queries can be chained together to achieve a multi-attribute query. The CAMP 


documentation [Ref 15] does not assess the performance of the PES Catalog system. 


6. Software Reuse At Hewlett-Packard 
Hewlett-Packard recognizes the need to make software reuse an integral part 
of the software development process [Ref 16]. A reusable component retrieval system is 
currently under development to help achieve this goal. The system will have a hyper-text 


browsing facility as well as using informal specifications to locate reusable components. 


II. CAPS AND PSDL 


The Computer Aided Prototyping System (CAPS), with its accompanying 
specification language the Prototyping System Description Language (PSDL), is an 
ongoing software engineering project in the Naval Postgraduate School computer science 
department. CAPS is a set of software tools designed to automate the process of 


prototyping real-time software systems [Ref 17]. 


A. USING CAPS TO BUILD EXECUTABLE PROTOTYPES 


The basic building blocks for a prototype in CAPS are operators, types, and 
streams. The software system being prototyped is modeled as an OPERATOR whose 
input and output streams correspond to the external interfaces of the system. For 
prototyping purposes, CAPS uses operators for software simulation of external entities as 
well. Based on this, the top level Data Flow Diagram (DFD) for the prototyped system 1s 
composed of an operator that represents the proposed system itself, one operator for each 
external entity, and the external data streams in and out of the proposed system. This top 
level DFD is the decomposition of a single operator that represents a closed system 
composed of the proposed software and all external systems that interact with the 


software. Figure 2 is an example of a top level DFD for a prototyped software system. 
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Figure - 2 CAPS Top Level DFD For Robot Prototype 


CAPS prototypes are expressed in the Prototyping System Description Language 

(PSDL). PSDL is based on a graph model for real-time system: 
G=(V,E,T(V),C(V)) 

where G is the graph that represents a prototype, V is the set of vertices in the graph 
where each vertex represents an operator in the prototype, E is the set of directed edges 
in the graph where each edge represents a data stream, T(V) is the set of timing 
constraints that are imposed on the vertex set V, and C(V) is the set of control constraints 
placed on the vertex set V [Ref. 18]. 

Decomposition of a prototype is achieved by implementing each of its composite 


operators with a graph. Each new graph G' is a more detailed representation of one of 


the nodes in its parent graph G. Decomposition of operators continues in this fashion 
until each operator has been fully decomposed. 

In order to make a prototype specified in PSDL executable, it is necessary to 
provide programming language implementations for all leaf operators. The current 
version of CAPS requires that all leaf operators be implemented in the Ada programming 
language. Future versions of CAPS will be capable of supporting other programming 
languages as well. 

Each data stream in CAPS carries an instance of an abstract data type. The abstract 
data type for each stream is defined as a PSDL TYPE component. This definition 
includes all of the OPERATORS that can operate on that data type. A PSDL type’s 
operators can also be graphically decomposed in the same manner as a prototype’s 
operators. To make a prototype executable, all of the PSDL type’s leaf operators must 
be implemented in Ada. 

In the current version of CAPS the designer uses a graphical editor to design and 
decompose the prototype's operators [Ref 19]. Future versions of CAPS will also allow 
for graphical design of abstract data types. 

By specifying prototypes in this manner CAPS can rapidly build an executable 
real-time prototype for user validation. Any deficiencies that the validation process 
identifies can be applied to the prototype and a new executable generated. This process 


can be repeated until the prototype meets all of the users needs. 
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B. USING REUSABLE COMPONENTS IN CAPS 


To achieve maximum benefit as a rapid prototyping system it is necessary for CAPS 
to achieve a high rate of component reuse in the implementation of leaf operators. The 
software base described in this thesis has been designed to support this goal. 

After the user has specified a needed operator or type, they have the opportunity to 
use that specification as a query to the software base to look for a potential match. If one 
is found it can be included in the prototype. If not the user has the choice of 
decomposing the component further or implementing the component manually. 

In addition to automatic component retrieval facilities, the software base contains a 
keyword browsing feature to assist the designer in finding components in the software 
base to be used for manual implementation. 

PSDL "was designed to serve as an executable prototyping language at the 
specification and design level." [Ref 17, p26] The grammar for the PSDL interface 
specification is not biased toward a particular programming language but rather is 
general enough to allow it to be extended to support any programming language. 

Because of this general design it is necessary to add some pre-defined abstract data 
types with specific interpretations related to software reuse to PSDL (not the grammar 
itself), in order to adequately specify a component for automated retrieval. These 


extensions include a methodology for describing type inheritance and distinguishing 


23 


between different types of generic parameters. A description of how PSDL was extended 


to support reusable components in Ada is included in Appendix A. 
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IV. SOFTWARE BASE IMPLEMENTATION 


A. REQUIREMENTS 


The CAPS software base must perform four basic tasks [Ref 20]. Figure 3 depicts 
these tasks. Text file storage is a mechanism to store and retrieve portions of a reusable 
component. Component browsing refers to giving the user the ability to locate and view 
components in a manner other than by PSDL query. The ability to query the software 
base by PSDL specification gives the system the retrieval characteristics desired in this 
prototyping system. Component integration into CAPS is required once a reusable 
component is located so that the execution support system can produce an executable 


prototype. 





Figure 3 - Requirements for CAPS Software Base 
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Due to the complexity of storing variable length source code and querying the 
software base using PSDL specifications, a powerful DBMS system is necessary [Ref 
21]. CAPS is designed to exist in a multi-user networked environment, therefore the 
DBMS system also needs to support multi-user, networked access to its data. 

Section B of this chapter is a description of the DBMS system that was used to 
implement the CAPS software base. Section C describes the segregation of reusable 
components into language domain areas. Section D 1s a description of the method used 
to store text files in the database. Section E 1s a description of the implementation of the 
software base browsing facilities. Sections F through H describe the implementation of 
the query by specification function of the software base. Section I discusses the 
requirements for integration of components into CAPS prototypes. Section J describes a 


prototype graphical user interface for the CAPS software base. 


B. ONTOS DATABASE MANAGEMENT SYSTEM 


The Ontos database management system [Ref 22] is one of a growing number of 
Object-Oriented Database Management Systems (OODBMS). It was selected for use in 
the software base project because it has sufficient capabilities to handle the requirements 
for the implementation of an advanced reusable software component library. 

The Ontos OODBMS is not constrained by a particular data model such as 
relational or hierarchical systems, but rather allows the database developer the ability to 


make any data object persist past the execution of the program that created it. 


Persistence of objects is accomplished by assigning each object a system generated 
unique identifier (UID), and providing methods to store and retrieve each type of object. 

The Ontos system uses C++ [Ref 23] as its implementation and application 
language. The database developer defines the database schema using C++ class 
definitions and the Ontos Classify utility. These classes are then implemented using 
standard C++. 

In Ontos all that is needed to make an instance of a particular class persistent is to 
have that class inherit from the Ontos-defined class Object. The Object class constructor 
assigns each object a UID. The methods necessary for reading and writing instances of a 
persistent class are defined by the Object class, and thus inherited by all instances of 
persistent classes. The reading and writing of persistent objects is transparent to the 
application. 

Ontos includes a set of persistent aggregate classes in order to efficiently handle 
collections of persistent objects. These aggregate classes include List, Set, Array, and 
Dictionary. 

The List class provides functionality analogous to a linked list data structure. The 
Set class implements the standard concept of a set and its associated operations. The 
Array class implements the programing language concept of a dynamically sizable array 
Structure. 

The Dictionary class is the most robust of all Ontos aggregate classes. It is a keyed 


data structure that can be ordered or unordered. For every entry in a Dictionary there are 
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two attributes stored, the Tag and the Element. The Tag is used for indexed look up and 
the Element holds the desired data. Dictionaries can be defined with or without duplicate 
Tags being allowed. The implementation of these structures is very efficient. 
Dictionaries that are unordered and do not allow duplicates are implemented via hash 
tables. All other Dictionaries are implemented as B-tree's. Figure 4 shows the 


inheritance relationship between the pre-defined Ontos aggregate classes. 





Figure 4 - Ontos Aggregate Inheritance Structure 


Using aggregate classes the designer can define a database architecture that best 
suits the needs of the application rather than modifying the application's structure to fit a 


particular database model. Using the transparent referencing of the database and 
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aggregate data structures, the developer designs the application as though all data is 
immediately available when referenced in a program. 

While this type of DBMS may be difficult to use where general ad-hoc query 
capabilities are desired, it is ideal for the development of software tools where the nature 
of the queries to be issued are known well in advance and the database schema must be 


designed to support them efficiently. 


C. SEGREGATION OF REUSABLE COMPONENT DOMAINS 


The CAPS software base is designed as a general purpose tool capable of storing 
components implemented in many programming languages. Because of differences in 
the capabilities of each programing language there are differences in the way the 
pre-defined abstract data types used in PSDL to specify components are interpreted by 
the software base. An example of this is that the char type in C++ 1s a subset of the type 
int while in Ada character is a system defined enumerated type. These differences in the 
interpretation of PSDL specifications require that all components of a particular 
implementation language be considered in a unique domain. 

It is also possible to create multiple component domains for a given implementation 
language. This allows segregation of components into major problem areas such as 
information systems and control systems. 

Each domain in the software base is referred to as a library and 1s an instance of the 


class SB_LIBRARY. The class SB_LIBRARY inherits from the Ontos class Object and 
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thus its members are persistent objects. Each instance of SB_LIBRARY is composed of 
five parts: a component dictionary, a keyword library, an operator library, an abstract 
data type library, and a recognized type matrix. 

The component dictionary is used to ensure that duplicate component names are not 
used within a particular library. The keyword library provides the ability to formulate 
and process keyword queries on the domain library. The operator and abstract data type 
libraries are used for the query by PSDL specification and are discussed in more detail in 
sections F.2 and F.3. The recognized type matrix contains the type name matching 
information for this library domain and is discussed in section G. 

The specification and implementation for the class SB_LIBRARY are in Appendix 
B. Figure 5 is an attribute diagram for the class SB_LIBRARY. The symbols used in 
this attribute diagram are the same as those used in Entity / Relationship Diagrams. 
Single ovals represent attributes of an object. Concentric ovals indicate a mult-valued 
attribute (Ontos Dictionary). The attributes shown for multi-valued objects are the 
contents of a single instance contained in that multi-valued object. Underlined attributes 


are the key or tag field of a multi-valued attribute (Ontos Dictionary). 


D. STORAGE OF UNCONSTRAINED TEXT OBJECTS 


In a typical development environment, program source files are stored in the 
Operating system's directory structure as text files. This is an effective method for storing 


source code for a small number ( < 100) of software components. As the number of 
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components increases however, this method becomes unacceptable. This is because the 
burden for maintaining the integrity of the files is placed on the users with little or no 


automated assistance. 





FIGURE 5 - LIBRARY ATTRIBUTE DIAGRAM 


Because of the anticipated size of the CAPS software base the decision was made to 
encapsulate all of the component text inside of the software base itself rather than using 
the operating system's file structure. 

For each component in the CAPS software base there are six text files that must be 
stored. These files are the PSDL specification source code, the implementation language 
specification, and the implementation body, | the informal description, the axiomatic 
specifiction, and a normalized version of the axiomatic specification. 

In order to store these text attributes it was necessary to design a persistent class for 


Ontos that would allow storage and retrieval of variable length text strings in an efficient 
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manner. The software base class SB_TEXT_OBJECT was developed to perform this 
function. 

The SB_TEXT_OBJECT class supports the creation of persistent text objects and 
appends to these objects C++ character strings (char *) or a C++ input stream 
(ifstream&). For output, an instance of the class SB_TEXT_OBJECT can output its text 
via a C++ character string (char *) or to an output stream (ofstream&). 

The class SB_TEXT_OBJECT is a child of the Ontos class Object and thus has all 
of the Ontos persistent methods for storage to and retrieval from the software base. 
Instances of the SB_TEXT_OBJECT class can be used as attributes of each component 
in the software base to store the PSDL and implementation source code. The full 


definition and implementation of the class SB_TEXT_OBJECT is given in Appendix B. 


E. BROWSING THE SOFTWARE BASE 


Although browsing by component name and keyword browsing are not the 
preferred methods for finding reusable components in a large software base, they are a 
necessary feature of any software collection. These types of features are required to 
allow users to familiarize themselves with the components in the software base as well as 
to allow the software base administrators to maintain them. Due to this need the software 


base was designed and implemented to support both keyword queries and named look up. 
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1. Named Look Up Of Components 

PSDL has only two types of software components: abstract data types and 
operators. Each software base domain library has been divided into these disjoint 
categories of components. For browsing purposes the software base provides a complete 
list of either all abstract data types, all operators, or all components in a particular library. 
These lists are in alphabetical order and are used to support for named look up of 
individual components. 

2. Keyword Querying 

Each software base library includes a keyword library for handling keyword 
access to its components. A keyword library is an instance of the class 
SB_KEYWORD_LIBRARY. The class SB_KEYWORD_LIBRARY has been designed 
to allow the keyword attribute of PSDL to form a keyword structured method of 
browsing the software base. 

An instance of SB_KEYWORD_LIBRARY provides a method for listing all 
keywords used in the library. From this list a keyword query can be formulated. 

The result of a keyword query is a list of those components that possess one or 
more of the query keywords. The list is ordered with those components that satisfy the 
most query keywords coming first. Figure 6 graphically represents the keyword query 
process for a query defined by keywords A,B, and C. 


The result of the query shown in Figure 6 will follow the following format: 


1. All components in area | will be listed first (since these components contain all 
keywords in the query). 


a3 


2. The next components in the list will be those in areas 2, 3, and 4. 
3. The last components listed will be those in areas 5, 6, and 7. 


4. Those components in area 8 will not be included in the list since they do not 
contain any of the keywords in the query. 


L - Set of all components in library 

A - Set of all components that contain keyword A 
B - Set of all components that contaln keyword B 
C - Set of all components that contain keyword C 





Figure 6 - Venn Diagram of Keyword Query 


The class SB_KEYWORD_LIBRARY is a Dictionary with individual keywords as 
the Dictionary tags. Each tag is associated with a separate Dictionary that contains a list 


of components that contain that particular keyword. Figure 7 is an attribute diagram for 


the class SB KEYWORD LIBRARY. 
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Figure 7 - Keyword Library E/R Diagram 


F. QUERY BY SPECIFICATION 


As stated previously, the implementation method that was chosen for the CAPS 
software base is to store components in a database and use PSDL specifications as the 
basis for high recall queries. Each stored component consists of a PSDL specification, an 
implementation specification, the implementation code, and a normalized version of the 
PSDL specification. The syntax and semantics of the PSDL specification will be used to 
direct the search for a component. 

Figures 8 and 9 summarize the steps necessary to store components in the software 


base and to retrieve them using a given query specification. Components to be stored 
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must first pass through syntactic and semantic normalization (see Figure 8). The 
normalization processes transform the component's PSDL specification to facilitate later 
matching [Ref 24]. Syntactic normalization involves primarily format changes and 
statistical calculations while semantic normalization requires specification expansion and 


transformations. 





Figure 8 - Component Storage Mechanism 


Figure 9 shows the general process for component retrieval. A query for a library 
component is formed by constructing the PSDL specification for the desired component. 
The query specification is syntactically and semantically normalized and then matched 
against the stored specifications. 

Syntactic matching of the query component takes place before semantic matching. 
The reason for this is that syntactic matching is faster than semantic matching and will be 


used to partition the software base quickly in order to narrow the list of possible 
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candidates that the semantic matching algorithm must consider. Semantic matching is 


time consuming and must be applied to as small a candidate list as possible. 





Figure 9 - Query By PSDL Specification 


Both syntactic and semantic normalization and matching are required to achieve the 
best performance from the system. The main benefit of syntactic matching is speed 
whereas the advantage of semantic matching is accuracy. Accuracy is required in order to 
reduce the number of reusable components that a designer will have to evaluate before 
making a selection. 

Consider the example of trying to find an abstract data type for a set. The Booch 
component library [Ref 25] contains 34 different variations for implementing a set. The 
specifications for these set packages are quite similar but the implementations are clearly 


different. 
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If we consider generic packages to perform sorting, the Booch library contains 15. 
Nine of the 15 Ada specifications are identical with the exception of the name given to 
the package. Clearly we cannot rely on syntax alone to provide us a sufficiently fine 
grained search. Semantics are also required. 

A semantic process alone would be unacceptable because semantic matching would 
have to be applied to every software base component causing the search process to be 
impractically time consuming. For a more detailed discussion of the semantic matching 
mechanisms used by the software base refer to [Ref 26]. 

The details of the syntactic matching mechanisms employed in the CAPS software 
base are addressed in the following sections of this thesis. 

1. Syntactic Matching 

The purpose of syntactic matching is to rapidly eliminate from consideration 
those modules in the software base that cannot match the query specification’s interface. 
This matching process uses the query module's PSDL interface specification to formulate 
a query. Once those modules with unsuitable interfaces have been removed, only a small 
subset of the software base needs to be semantically analyzed. The syntactic matching 
process reduces the number of candidate modules sufficiently to make semantic matching 
practical. 

Prior to discussing the design of the software base architecture needed to 
support syntactic matching it is necessary to rigorously define what constitutes a 


syntactic match. PSDL allows the definition of both type and operator modules. Since a 
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type module is a superset of an operator module, the definition of an operator module 
match will be given in detail and then extended for use with type modules. 
The attributes of a PSDL specification p for a software component c that are 


important to the syntactic matching process are the following: 
1. S(p)= ( {In(t,n) : there are n>0 occurrences of type t as input parameters toc }, 
{Out(t,m) : there are m>0 occurrences of type t as output parameters from c }, 
{E : E is an exception defined in c}, { 


St: Stis a state variable inc} ) 

S(p) is the interface subset of the PSDL specification for module c and is the 
only part of the specification that pertains to the syntactic matching process. 

Given a software base module m, and a query module gq, along with their 
respective PSDL interface specifications S(m) and S(q) then m is a syntactic match for q 
if and only if all of the following constraints are met: 

[est o(@)e stm) > Lf. (In(t,n),) = In(t',m), (m=n and (t=t' or t' is a generic match 
of t)) and f, is bijective | 


2. A3f,: S(q) S(m) > [(e, (Out(t,n),) = Out(t',m), (m=n and (t=t' or t' is a generic 
match of t)) and f, is injective] 


oe if (\{STq}| > 0 then \(STm}| > 0) else (\{STq}| = \(STm}| =.()) 
This definition of a syntactic match could be used directly to determine if a 
software base component could match a query specification's interface but would require 
the system to check every component in the software base. This type of implementation 


would be very inefficient. A better strategy involves using the matching rules to derive a 
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set of module attributes that can be used to rapidly identify and reject modules with 


unsuitable interfaces. Some examples of these derived attributes include: 


1. Ifthe number of input parameters in S(q) is not equal to the number input 
parameters in S(m), then there can be no function f, to satisfy rule 1. Therefore 
S(m) can be eliminated from the search. 


2. If the number of output parameters in S(q) is greater than the number of output 
parameters in S(m), then there can be no function f, to satisfy rule 2. Therefore 
S(m) can be eliminated from the search. 


3. If S(q) has state variables defined (i.e. q defines a state machine) but S(m) has no 
state variables, then S(m) can be eliminated from the search. 


If a component passes these tests, 1t does not mean that it is a syntactic match, 
a failure however, does eliminate the module from further consideration because it 
cannot be a syntactic match. These attributes are derivable from the PSDL specification 
and can be used to form multi-attribute keys. These keys allow a rapid reduction in the 
size of the viable subset of the software base via multi-attribute queries without the need 
to attempt to identify the individual mapping functions for each module. For those 
modules that are selected by the multi-attribute query additional checks can be made to 
identify components that cannot meet rules 1 and 2. These checks form a filtering 
mechanism that removes any unsuitable components from the query result. 

The rules for the syntactic matching of type modules are similar to those for 
operator modules with the addition of a mapping function to map the operators of S(q) to 
the operators of S(m) and an additional check to ensure the generic parameter 
substitutions used for this mapping function are consistent for all operators in S(m). 


Multi-attribute keys can be formulated that incorporate these additional requirements. 
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These keys can then be used for the initial type module database query and additional 
checks only applied to those modules that are selected by the multi-attribute query. 
Through the use of a complex aggregate hierarchy, the software base can be 
separated into disjoint areas, each queriable via multi-attribute keys. 
2. Operator Component Library 
The class SB_OPERATOR_LIBRARY is structured to allow a multi-attribute 


query to be performed efficiently on the following attributes: 
1. State_Flag 
2. Number_of_Inputs 
3. Number_of_Outputs 
4. Number_of_Generic_Types / Number_of_Unrecognized_Types 


The Number_of_Generic_Types attribute is for software base components and 
Number_of_Unrecognized_Types is the corresponding attribute for query components. 
In order for a software base operator component m to be returned from the 


multi-attribute query for component q it must satisfy the following conditions: 
1. State_Flag(m) = State_Flag(q) 
2. Number_of_Inputs(m) = Number_of_Inputs(q) 
3. Number_of_Outputs(m) >= Number_of_Outputs(q) 
4. Number_of_Generic_Types >= Number_of_Unrecognized_Types(q) 


The fourth requirement is due to the fact that if the software base library does 
not recognize a particular type in the query specification the only way that.type could be 


matched is via a generic type. 
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The result of this query is a set of software base components that are potential 


syntactic matches of the query specification. At this point additional tests (filters) can be 


applied to each remaining component to determine if it should be passed to the semantic 


matching step. Applying these filters is an iterative process that must be carried out on 


one software base component at a time. 


The schema for the class SB_OPERATOR_LIBRARY is shown in figure 10. 
Abstract Data Type Library 


The abstract data type library is similar to the operator component library. It is 


an instance of the class SB_ADT_LIBRARY and uses the following attributes for multi 


attribute queries: 


1. 


Number_of_ADTs 


2. Total_Number_of_Inputs 
ay 
4 
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Total_Number_of_Outputs 


. Total_Number_of_Generic_Types / Total_Number_of_Unrecognized_Types 


. Number_of_Operators 


In order for a software base operator component m to meet an attribute query 


for component q all of the following must be true: 


le 


Number_of_ADTs(m) >= Number_of_ADTs(q) 


2. Total_Number_of_Inputs(m) >= Total_Total_Number_of_Inputs(q) 
or 
4 


. Total_Number_of_Generic_Types(m) >= 


Total_Number_of_Outputs(m) >= Total_Number_of_Outputs(q) 


Total_Number_of_Unrecognized_Types(q) 


Number_of_Operators(m) >= Number_of_Operators(q) 
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Figure 10 - Operator Library Attribute Diagram 


The rationale behind requirement 5 is the same as for the operator query. 
Again the results of the multi-attribute query is a set of type components that are 
potential maps for the query component. The schema for the class SB_ADT_LIBRARY 


is shown in Figure 11. 


G. DATA STREAM TYPE MATCHING 


One of the critical concepts in the syntactic matching methodology is the 
determination if a library component stream data type is a match of a query component 
stream data type. The criteria for making this decision differs for each implementation 
language because they each have their own set of predefined data types and inheritance 
techniques. 

In order to identify if one stream type can map into another stream type, each 
library contains an instance of the class SB_RECOGNIZED_TYPES. This class 
contains the names of all of the type identifiers the library recognizes along with a matrix 
for determining whether a given type can map into another type that the system 
recognizes. This matrix represents all of the subtype relationships among the recognized 
types. 

The direction of the mapping is important as illustrated by the following 
example. In Ada the subtype Natural is defined as the range from 0..Integer'Max and 


Positive is defined as 1..Integer'Max. 
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Figure 11 - ADT Ubrary Attibute Diagram 


A Positive data type in an input stream of a query can map into a Natural in an 
input stream of a stored component since all of the Positive’s allowed values are also 
valid Natural values. A Natural however cannot map into a Positive because 0 is not a 
valid Positive number. The situation is reversed for output streams. 

The SB_RECOGNIZED_TYPES class also contains information about how 


some standard programing language concepts will be identified. These include: 
1. Whether or not the language 1s case sensitive. 

How type inheritance will be identified. 

The base type name for generic types, values, and procedures. 


The base type name for abstract data types. 


ees ee 


How array types will be specified (including the index type and element type). 


An example of the type matrix for Ada and its use 1s presented in Appendix A. 


H. ABSTRACT REPRESENTATION OF SOFTWARE BASE COMPONENTS 


The class SB_COMPONENT is an abstract base class for storing the attributes of 
software base components. It includes attributes that are common to all software 
components. The classes SB_ADT_COMPONENT and SB_OPERATOR inherit from 
SB_COMPONENT and include additional attributes that are specific to each. 

Two classes inherit from SB_OPERATOR. These are 
SB_OPERATOR_COMPONENT and SB_ADT_OPERATOR. These two classes differ 
only in the methods for handling generic and recognized types. 

Figure 12 shows the inheritance hierarchy used in defining the persistent classes for 


software base components. Figure 13 is the schema for the class 
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SB_ADT_COMPONENT and Figure 14 is the schema for the class SB_OPERATOR 


respectively. 


SB_COMPONENT 
SB_OPERATOR 


SB_ADT SB_OPERATOR 
COMPONENT COMPONENT 


Figure 12 - SOFTWARE BASE COMPONENT INHERITANCE 





Each of these schemas contain some derived attributes. These derived attributes are 
stored in the software base to prevent them from being recomputed each time they are 
needed. 

A parser for the specification subset of PSDL was developed using lex [Ref 27] and 
yacc [Ref 28] in order to construct instances of the SB_ADT_COMPONENT and 
SB_OPERATOR_COMPONENT classes. For this parser to take the appropriate 
semantic actions, language preserving transformations of the original PSDL grammar 
were necessary. These transformations consist of the addition of non-terminals and 


productions to allow appropriate semantic actions to be carried out. 
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Figure 13 - ADT Component Aftribute Diagram 


The source code input to lex and yacc that was used to generate the parser 1s 


included in Appendix C. 


I. INTEGRATING RETRIEVED COMPONENTS INTO CAPS 


The goal of the software base is to provide to CAPS a component implementation 
that is an exact match for a query specification and meets the needs of the CAPS 
execution support system. To accomplish this, once a reusable software component has 


been located it must be transformed into a form that matches all of these requirements. 
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This transformation involves changing parameter, type, and operator names of the library 


component to match those of the query specification as well as instantiating any generics. 





Figure 14 - Operator Component Attribute Diagram 


Rather than modifying the library component itself, the library unit can be used as a 
basis for the creation of a separate component that meets the needs of the query 
component. This is accomplished via inheritance or using the with statement in Ada. 

The software base cannot directly generate implementation code because it is not 
language specific. It can generate an abstract representation of how the library 
component satisfies the syntax and semantics of a query component. This representation 
can then be used by a translation tool specific to a particular implementation language to 


generate the implementation code. Figure 15 shows the details of the integration process. 
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Figure 15 - integration of Components Into CAPS 


This method of component integration is preferable since additional implementation 
languages can be added to the software base as long as a translation tool to generate the 
final implementation is provided. Appendix D provides a specification for a proposed 
mapping grammar that can be generated by the semantic matching system and used for 
generation of component implementation. Appendix D also gives an example of this 
process to generate an implementation for an abstract integer set using a generic Set 


package. 
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J. SOFTWARE BASE INTERFACE 


CAPS itself is a set of individual tools. These tools are linked together with a tool 
interface. One of the CAPS tools is a graphical user interface. The user graphical 
interface gains access to all of the other tools in the system via the tools interface. The 
reason for having all graphical user interface functions in a single tool is to simplify 
future enhancements to the interface. 

Based on this structure, each tool in the CAPS system provides a command line 
interface that is used by the tool interface to invoke the tool. The software base has been 
designed with an interface that meets this requirement. 

1. Command Line Interface 

The software base implementation provides a command line interface. This 
type of interface supports easy integration of the software base functions into the CAPS 
system. The functions provided by the software base command line interface are the 


following: 

1. Make a new domain library. 
Add a new software base component. 
Update a software base component. 
Delete a software base component 
Generate a list of components in a library 
Generate a list of operators in a library 


Generate a list of types in a library 


Cs Se ae 


Generate list of keywords in a library 
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9. Keyword query 

10. Component query 

11. View acomponent's source files 

12. Output diagnostic information (for testing and maintenance only) 


13. Generate a component's mapping for a given query 

A function to generate a mapping for a query has not been implemented in the 
Current version of the software base. For details on the exact syntax of these commands 
refer to Appendix E. 

2. Graphical User Interface 

In order to demonstrate the capabilities of the software base system and the 
command line interface, a graphical user interface was prototyped for the software base 
system using the Interviews 3.0b [Ref 29] interface builder application and the 
Interviews 3.0b object library. This interface is not intended to be full functioning but 
rather an example of the functionality of the software base system. 

Appendix F is the user's manual for the prototype software base graphical 


interface. Appendix G is the source code for this graphical user interface. 


De 


V. CONCLUSIONS AND FUTURE RESEARCH 


The software base system described in this thesis has been implemented. It has not 
yet been integrated into CAPS. Due to the complexity of the software base system, there 
are many areas that can be improved by future research. This chapter identifies those 


areas that need improvements and provides recommendations where possible. 


A. ADDING COMPONENTS TO THE SOFTWARE BASE 


Reusable components are currently being selected and tested for possible inclusion 
into the software base. This is a labor intensive activity for several reasons. 
1. Component Testing 
Any component that is added to the software base must be adequately tested to 
ensure that it fully meets its specification. Testing software components continues to be 
a difficult area in software engineering research and further advances in testing are 
necessary to make reusable component libraries more successful. Some relevant research 
in this direction is provided in [Ref 30]. 
2. Component Implementation Restrictions 
The CAPS system restricts the nature of the components used in prototypes. 
The first restriction is that implementations of OPERATORS must be procedures rather 


than functions. The second restriction is that "in out" parameters are not allowed. These 
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restrictions necessitate the modification of most existing components that are candidates 
for reuse. This includes sources such as the Booch library, the Ada software repository, 
the RAPID project, the CAMPS project etc. One method of overcoming this difficulty is 
automate the modification process using a translation tool. 
3. Writing Formal Specifications Of Existing Components 

CAPS and the software base system require that reusable components be 
specified in two additional specification languages. These are PSDL and the OBJ3 used 
for semantic matching. Writing these specifications is a time consuming process that 
could be partially automated by using the implementation language's specification to 


generate skeletons of PSDL and OBJ3 interface specifications. 


B. DELETING AND UPDATING COMPONENTS 


Updating or deleting components from the software base could cause system 
inconsistencies. These inconsistencies take two forms. The first involves other software 
base components that may depend on the deleted or updated component. The second is 
that previously generated prototypes may depend on the component that has been deleted 
or modified. The current implementation of the software base relies on the software base 
administrator to ensure that these conditions do not arise. This process should be 


automated to ensure that the inconsistencies do not occur. 
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To correct the first problem it is necessary to add dependency relationships between 
software base components and the software base. This would allow the software base to 
ensure that all updates and deletions do not create inconsistencies. 

To correct the second problem it is necessary to save the source code for all deleted 
or updated components external to the software base. This could be accomplished 


through the use of a version control system such as SCCS. 
C. EFFICIENCY 


The most time consuming portion of a software base query is semantic matching. 
The easiest way to improve overall query performance is to reduce the number of 
components that must be analyzed by the semantic matching system. 

As more components are added to the software base, experience will be gained on 
the performance of the syntactic matching system. This experience will make it possible 
to identify additional attributes for the multi-attribute queries and to add more detail to 
the post-query filtering routines. These additions will reduce the number of candidates 


passed to the semantic matching system and thus increase overall query performance. 
D. SOFTWARE BASE SYSTEM IMPLEMENTATION LANGUAGE 


The long term goal for CAPS is that it be entirely implemented in Ada. A major 
portion of the software base system is currently implemented in C++. C++ was used 


because there does not exist a tool with the capabilities of Ontos that interfaces directly to 


2 


Ada. As more robust database tools become available for Ada, it will be possible to 
re-implement the software base tool fully in Ada. A DBMS of this type is currently 


being developed which could be used for future versions of the software base [Ref 31]. 
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APPENDIX A - USING PSDL TO SPECIFY 
REUSABLE COMPONENTS 


The ability to accurately specify reusable components with PSDL is critical to the 
success Of the software base. Due to the general nature of the PSDL interface 
specification its use for specifying specific programming languages must be refined. The 
software base 1s designed to recognize the enumeration of PSDL for any language in the 


following areas. 


A. STRUCTURE OF EXTENSIONS TO PSDL INTERFACE SEMANTICS 


1. Generic Parameters 

In languages that support the concept of generic units, such as Ada, or in 
macro expansion facilities, there are three categories of generic parameters. These are 
generic types, generic values, or generic program units. 

The generic specification structure in PSDL must be extended to identify a 
particular generic parameter as either a type, value, or program unit. This is 
accomplished in the software base by defining of three identifiers that have special 
significance in the generic structure. 

2. Abstract Data Types 
There are cases where in the definition of one abstract data type it is necessary 


to define others as well. Programing languages such as Ada allow an individual package 


60 


to define an unlimited number of abstract data types. PSDL TYPE's can specify multiple 
abstract data type structures through the definition of an identifier that has a special 
meaning in the type declaration structure of a PSDL TYPE. 

3. Type Inheritance 

Most modern programming languages support user defined types. In many 
cases user defined types actually inherit from a predefined language type and the new 
type retains compatibility with its parent. An example of this is the subtype construct in 
Ada. 

The software base needs to be able to identify when a user defined type is 
compatible with a predefined type or another user defined type. One way of achieving 
this is to allow the ability to specify from what base type a user defined type inherits. 
This inheritance identification is achieved in the software base through the definition of 
an identifier that has special meaning in the type name construct of PSDL. 

4. The Array Abstract Data Type 

The concept of an array of data is present in almost all programing languages. 
Because of this, the decision was made to add the definition of special identifiers in 
PSDL to allow the software base to decide when two array types are compatible. The 
identifiers are used to identify the type of the index of the array as well as the type of the 


element of the array. 
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B. EXAMPLE DEFINITIONS FOR ADA 


For a particular language library the definitions of the special identifiers are 
contained in the rule file used when the library is created. The rule file defined for Ada 
follows this description of a rule file's contents. The first field in the rule file indicates if 
the language being defined 1s case sensitive (1) or not (0). 


The next six rules define the special identifiers for the following concepts. 


1. Type that must be matched generically 
2. Inheritance 

3. Generic type 

4. Generic program unit 

5. Generic value 

6. Abstract data type 

7. Array 

8. Array index 

5). 


Array element 

These identifiers must all be defined and in this order. 

Following these identifiers is a list of type names that the designer wants the 
software base library to recognize in this library. The list is terminated with a "~". 

Following the ~ is a matrix of boolean (O or 1) values concerning type 
compatibility. This matrix is constructed by listing all identifiers above the ~ to identify 


the rows and columns of the matrix. A value of 1 at (row x, column y) indicates that 


type x can map into the type y. 


62 


GENERIC PROCEDURE 


GENERIC_VALUE 


O5070°0°0 0 0 0 O2060001040-G7020-05080'0 
CROROS IOs 0700 0 T0000 00000 0 


HomcnorO OO 0000000000000 000 
0O00000000000000000000000 


DISCRETE 
RANGE 


ARRAY_ELEMENT 


GENERIC_TYPE 
imiouore oO O00 l100101000 000 


e000 00011 0 0 1080 0a0)00 0 


UNRECOGNIZED 
BASE_TYPE 
ARRAY_INDEX 
NATURAL 
POSITIVE 
BOOLEAN 
FLOAT 

FIXED 

STRING 

ACCESS 


PRIVATE 
ENUMERATION 
INTEGER 


ADT 
ARRAY 
DIGIT 
DELTA 


0 
CHARACTER 


C. ADA RULE FILE 


ee 
aaa Ce Ce) 


0 
0 
0 
0 


010 
07 0al 


Heer eI 0-0 0 1-0 0 0 
OrOs070 8 10 1000 


Toevee) 0.1100 10111000 
0 
0 


w0s0F0 OO l10010110000 


0 0 
0 0 


000 
00 0 
000 
0700 
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000000000000 1100 0 00 wikis 
000000000100 0100 00 UUs 
0000000 1 0980 00 19070 00°00 0 Ure 
0O00000000000000000000001 


EXAMPLE PSDL SPECIFICATIONS USING ADA RULES. 
1. Bubble Sort Operator 


PSDL 


operator bubble_sort 
specification 
generic 
array_type : GENERIC_TYPE[ 
BASE_TYPE : ARRAY[ 
ELEMENT : PRIVATE, INDEX : DISCRETE}], 
less_than : GENERIC_PROCEDURE 
input 
the_array : array_type 
output 
the_array : array_type 
keywords array,sort,bubble 
description { Booch library bubble sort } 
end 


ADA SPECIFICATION 


-- (C) Copyright 1986, 1987, 1988, 1989, 1990 Grady Booch 
-- All Rights Reserved 


-- Serial Number 0100219 

-- "Restricted Rights Legend” 

-- Use, duplication, or disclosure is subject to 

-- restricuons as set forth in subdivision (b) (3) (ii) 

-- of the rights in Technical Data and Computer 

-- Software Clause of FAR 52.227-7013. Manufacturer: 
-- Wizard software, 2171 S. Parfet Court, Lakewood, 

-- Colorado 80227 (1-303-987-1874) 
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generic 
type Item is private; 
type Index is (<>); 
type Items 1s array(Index range <>) of Item; 
with function "<" (Left : in Item; 
Right : in Item) return Boolean; 
package Bubble_Sort is 


procedure Sort (The_Items : in out Items); 


end Bubble_Sort; 
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1. Set Abstract Data Type 


PSDL SPECIFICATION FOR SB_SET_PKG 


type sb_set_pkg 
specification 
generic 
t: GENERIC_TYPE, 
block_size : GENERIC_VALUE, 
eq : GENERIC_PROCEDURE 


set: ADT 


operator empty 


specification 
output 
S: set 
end 
operator add 
specification 
input 
Neate 
Si; S@L 
output 
so: set 
end 


operator remove 


specification 
input 
Re 
SI: Sct 
output 
SO’ SCE 
end 


operator member 


specification 
input 
Xa 
S: set 
output 
v : boolean 
end 


operator union 
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specification 
input 
Sizs2 < set 
output 
So. sel 
end 


operator difference 


specification 
input 
S1\s2 : set 
Oulput 
s3: set 
end 


operator intersection 


specification 
input 
SileG2 Se 
output 
s3: set 
end 
operator size 
specification 
input 
S: sel 
output 
Vv : natural 
end 
operator equal 
specification 
input 
S1,s2: set 
output 
v : boolean 
end 
operator subset 
specification 
input 
SIRS 2.3 Sel 
output 
v : boolean 
end 
keywords SET 


description { SET ADT WITH OPERATIONS FOR EMPTY, ADD, SUBSET, EQUAL } 
end 
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ADA SPECIFICATION FOR SB_SET_PKG 


with text_10; use text_10; 


generic 

type t 1s private; 

block_size: in natural:=128; 

with procudure eq(x,y: in t, v: BOOLEAN); 
package sb_set_pkg is 


type set 1S private; 
type index_array is array(natural range <>) of natural; 


procedure empty(s: out set); 

procedure add(x: in t; si: in set, SO : Out set); 
procedure remove(x: in t; S: in out set); 
procedure member(x: 1n t; s: in set, v : boolean); 
procedure union(s1, s2: in set; s3: Out set); 
procedure difference(s1, s2: in set; s3: out set); 
procedure intersection(s1, s2: in set; s3: out set); 
procedure size(s: in set, v : Out natural); 
procedure equal(s], s2: in set, v : out boolean); 
procedure subset(s1, s2: 1n set, v : out boolean); 


private 


type link is access set; 
type elements_type is array(1..block_size) of t; 


type set is 
record 
size: natural:=0; --The size of the set 
elements: elements_type; --The actual elements of the set 
next: link:=null; --The next node in the list 
end record; 
--Elements(1..min(size,block_size)) contains data 


end sb_set_pkg; 
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APPENDIX B - C++ SOURCE CODE FOR 
SOFTWARE BASE 


The source code for the software base included in this Appendix was formatted 
using the c++2latex code formatting system written by Norbert Kiesel. His program was 
modified to have it generate output that conforms to the requirements of the Naval 


Postgraduate School thesis format. 
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// CAPS REUSABLE COMPONENT RETRIEVAL SYSTEM CLASS DEFINITIONS 


// 
// J. K. MCDOWELL 28 AUG 91 


#include <stream.hxx> 
#include <strstream.hxx> 
extern (C-——a 

{ 

#include <string.h> 
#include <stdio.h> 
#include <stdlib.h> 
#include <ctype.h> 


# include <Dictionary.h> 

# include <Array.h> 

# include <List.h> 

# include <TRef.h> 

# include <Type.h> 

# include <Database.h> 

# include <Directory.h> 

# include <GlobalEntities.h> 


class SB_LLIBRARY;; //sbl.crz 

class SB_ADT_COMPONENT LIBRARNGY / somes 
class SB_LOPERATOR-COMPONENT_LIBRARY; //sbocl.crz 
class SB_KEYWORD_LIBRARY, //sbkwl.crz 

class SB_-COMPONENT; //sbc.crr 

class SB-COMPONENT_DICTIONARY;; //sbcd. crr 
class SB_-KEYWORD_DICTIONARY; //sbkwd.crz 
class SB_TEXT2OBIJEC1. (ciio-c.3 

class SB_ADT_COMPONENT: //sbac.czrz 

class SBLOPERATOR; //sbo.crzr 

class SBLOPERATOR.COMPONENT;; //sboc.crr 
class SB-ADT_OPERATOR; //sbao.cxr 

class SB.ID-DECL_DICTIONARY; //sbidd.crz 

class SB.ID_DECL; //sbid.crz 

class SB-TYPE_USAGE; 7 siiaers 

class SB-_TYPE-USAGE_DICTIONARY; //sbtud.crz 
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class SB_TYPE_NAME; //sbtn.crr 

class SB_ADT_OPERATOR_DICTIONARY; //sbaod.czrz 
class SB_EXCEPTION DICTIONARY: //sbed.crz 

class SB-_RECOGNIZED_TYPES; //sodrt.crr 


es 


/{ SOFTBASE NAMEING CONVENTIONS 


// A. all softbase class names start with "SB_” this eliminates any 
// potential name space conflicts with any other software. 

// B. all TRef instances start with *the.” and there dereferencing 
// functions use the rest of the name. (ve. TRef xthe_name, 


// SB name() ) 


// to eliminate confusion between PSDL types and stream types 
// PSDL types are refered to as abstract data types (ADT) and 
// stream types are refered to as sumply types 


class SBLLIBRARY : public Object 
{ 
private: 
TRef *the_adt_component_brary; 
DictionaryIterator adt_iterator(); 
SB-ADT.COMPONENT_LIBRARY +*adt_component_ibrary(); 
TRef *the-operator-ccomponent_brary; 
DictionarylIterator operatoruterator(); 
SB-OPERATOR-COMPONENT_LIBRARY <*operator-component-_library(); 
TRef «the-component dictionary: 


DictionaryIterator component-iterator{(); 
SB_COMPONENT_DICTIONARY «*component_dictionary(); 


TRef «the_keyvword_hbrary; 

SBNKEYWORD_LIBRARY *keyword_library(); 

TRef *the_recognized types; 

SB_COMPONENT DICTIONARY #query(SB.COM PONENT ¥); 
public: 

// methods for ontos 

SB_LIBRARY (APL +*); 

virtual void Destrov(Boolean aborted=FALSE); 

virtual void deleteObject( Boolean deallocate=FALSE); 

virtual void put Object(Boolean deallocate=FALSE); 


Type +*getDirect Type(): 


SB_LIBRARY(char *#name,char *table); 
void component-_list(ofstream& outstream); 
void keyword_list(ofstream& outstream); 
void type_list(ofstream& outstream); 

void operator_list(ofstream& outstream); 


void query(SB-COMPONENT «query_component,ofstrean& outstream); 


Te 


void keyword-_query(ifstream& instream, ofstream& outstream); 
Boolean add(SB_-COMPONENT «); 

SB.-COMPONENT «query(char «component name); 

void update_recognized types(char +file); 
SB-_RECOGNIZED_TYPES «recognized _types(); 


void delete_component(SB_-COMPONENT «*the-component); 


class SB_ADT_COMPONENT_LIBRARY : public Object 


{ 


private: 


TRef *the_adt_component_dictionary; 
SB-COMPONENT_DICTIONARY *adt_component-dictionary(); 
TRef *the.main_hbrary; 


Dictionary *main_library(); 


public: 


// methods for ontos 

SB_ADT_COMPONEDT _LIBRARY(APE 4). 

virtual void Destroy( Boolean aborted=FALSE); 
virtual void deleteObject( Boolean deallocate=FA LSE); 
virtual void putObject(Boolean deallocate=FALSE); 


Type *getDirect Type(): 


SBADT_COMPONEN Ti WAI 

Boolean add(SB_ADT_-COMPONENTs ): 

SB-COMPONENT_DICTIONARY #¢query(SB_ADT-COMPONENT «query component); 
void list(ofstream€& outstream); 

Dictionarylterator iteratort(); 


void delete_component(SB_ADT_COMPONENT +the_component); 


class SB_-COMPONENT_DICTIONARY : public Dictionary 


{ 


public: 


ie 


// ontos methods 

Spec OMPONENT DICTIONARY(APL *); 

virtual void Destroy(Boolean aborted=FALSE); 
virtual void deleteObject(Boolean deallocate=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 


Type *get Direct Type(); 


Sbee OMPONENT DICTIONARY (): 
Boolean add(SB_-COMPONENT +); 
SB_-COMPONENT #query(char *name); 
void printOn(ofstream& outstream); 


Dictionarylterator iterator(); 


=e 
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class SB_OPERATOR.COMPONENT LIBRARY : public Object 
{ 


private: 


TRef *the_operator_component_dictionary; 
SB_COMPONENT DICTIONARY x*operator_component_dictionary(); 


TRef *the_state_dictionary; 
Dictionary *state_dictionary(); 


TRef *the_non_state_dictionary; 
Dictionary *non-_state_dictionary(); 


public: 
// ontos methods 
SB_OPERATOR.COMPONENT LIBRARY(APL +¥); 
virtual void Destroy(Boolean aborted=FALSE); 
virtual void deleteObject(Boolean deallocate=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 


Type *getDirect Type(): 


SB_OPERATOR.COMPGMENT LIBRARY ({); 
Boolean add(SB-OPERATOR-COMPONENT *new component); 


SB_COMPONENT DICTIONARY «query( 
SB-OPERATOR_COMPONENT +*query-component); 


void list(ofstream& outstream); 
Dictionarylterator iterator(): 


void delete.component(SBLOPERATOR_COMPONENT *the-component ); 


class SB_KEYWORD_LIBRARY : public Dictionary 


{ 


public: 


// ontos methods 

SBKEYWORD-_LIBRARY(APL ¥*); 

virtual void Destroy(Boolean aborted=FALSE); 
virtual void deleteObject(Boolean deallocate=FALSE); 


virtual void putObject(Boolean deallocate=FALSE); 


SB_KEYWORD-_LIBRARY(); 

void query(ifstream& instream, ofstream& outstream); 
Boolean add_component(SB-COMPONENT *new_component); 
void delete_component(SB_-COMPONENT *the-component); 
Dictionarylterator iterator(); 


void list(ofstream& outstrean)): 


I, 
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class SB-COMPONENT : public Object 
{ 


private: 
char *the-component_name; 
TRef *the_keyword_dictionary; 
T Ref *the_psdl_text; 
TRef *theimp-_spec_text: 
TRef «the imp_body-_text; 
TRef +#thenformal_description; 
T Ref *the_formal_description; 
T Ref *the norm_formal. description; 
T Ref *the_recognized type usage: 


TRef *the_unrecognized type usage; 


TRef *the_generic_usage: 


protected: 


SB_COMPONENT(APL «*theAPL); 

public: 
virtual Type *getDirect Type()=0; 
virtual void Destroy(Boolean aborted=FALSE); 
virtual void deleteObject( Boolean deallocate=FA LSE); 
virtual void putObject(Boolean deallocate=FA LSE); 
i sc ren eee a 
SB_COMPONENT (char +#id); 
virtual void printOn(ofstream& outstream)=0; 
Boolean add_keyword(char *keyword): 
char *component_naime(): 
SB_TEXT_OBJECT x*psdl_text(); 
SB_TEXT_-OBJECT +imipospectiexcG). 
SB_TEXT_OBJECT *imp_body_text(); 


SB_TEXT-_OBJECT +informaldescription(); 


=~] 
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SB_TEXT_OBJECT +*formal_description(); 

SB-TEXT_OBJECT *norm_formal description(); 
SB-_TYPE_USAGE_DICTIONARY ¥generic-_usage(); 

void add-text(ifstream& psdl, ifstream& spec, ifstream& body); 

void insert_generics(SB_TYPE_USAGE_DICTIONARY * new generic sage); 
SB_TYPE_USAGE_DICTIONARY +#recognized_type-usage(); 
SB_TYPE_USAGE_DICTIONARY xunrecognized ty pe_usage(); 
SBKEYWORD_DICTIONARY *keyword_dictionary(); 

int num_unrecognized_types(): 

virtual int nun generic_types()=0; 


int total_types(): 


ie 


class SB_ADT_COMPONENT : public SB_-COMPONENT 
{ 
private: 


TRef *the_adt_usage; 


TRef *the-operator.specs; 
SB-ADT_OPERATOR_DICTIONARY *operator-specs(); 


public: 
// ontos methods 
SB_ADT_COMPONENT (Ars), 
virtual void Destroy(Boolean aborted=FALSE); 
virtual void deleteObject(Boolean deallocate=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 


Type *get Direct Type(): 


SB_ADT-COMPONENT (chiar +1d); 

void insert _adt_usage(SB-TYPE_USAGE_DICTIONARY + new-adt-usage); 
void insert operators(SB_ADT_OPERATOR_DICTIONARY *new operators); 
int num_adts(); 

int num_adt_operators(): 

int total.inputs(): 

int total_outputs(); 

virtual int num generic_types(); 

Boolean filter(SB-ADT_COMPONENT «library component); 
Dictionarylterator adt_iterator(): 

Dictionarylterator adt_operatorterator(); 

void printOn(ofstream& outstream); 


virtual Boolean process_type_info(); 


SB_TYPE_USAGE_DICTIONARY *adt_usage(); 
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class SBLOPERATOR : public SB-COMPONENT 
{ 


private: 
TRef *theinput_attributes: 
TRef *the_output_attributes; 
TRef *«the_exceptions; 
Boolean states_flag: 
protected: 
// ontos methods 
SB-OPERALORGAPE + thevAr ii: 
virtual void Destroy(Boolean aborted=FALSE); 
virtual void deleteObject(Boolean deallocate=FALSE); 
virtual void putObject( Boolean deallocate=FALSE); 


virtual Type *get Direct Type()=0; 





SB1ID-DECL_DICTIONARY *input_attributes(); 
SB.ID-_DECL_DICTIONARY *output_attributes(); 
SB_EXCEPTION DICTIONARY +#exceptions(); 
SB_LOPERA POR cliar +c), 

public: 
Boolean add-inputs(SB.ID-.DECL_DICTIONARY «); 
Boolean add_outputs(SBID-_DECL_DICTIONARY +); 
Boolean add_exceptions(SB_LEXCEPTION DICTIONARY «); 
int numinputs(); 
int num_outputs(); 
virtual int num: generic_types(): 


Dictionarylterator input_iterator(); 


Dictionarylterator output_iterator(); 
Dictionarylterator exception_iterator(); 
Boolean states(); 

void set states(): 


virtual void printOn(ofstream€ ); 


class SB_ADT_OPERATOR : pubhteSB2Or ene On 
public: 
// ontos methods 
SB_ADT-OPERATOR(APL * theAPL); 
virtual void Destroy(Boolean aborted=FALSE); 
virtual void deleteObject( Boolean deallocate=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 


virtual Type «get Direct Type(): 


Boolean process_typeinfo(SB_ADT COMPONENT xadt); 
SB ADT _OPERAUVOR (char). 


ie 


a4 


class SB_LOPERATOR-COMPONENT : public SBLOPERATOR 
{ 


public: 
// ontos methods 
SB_-OPERATOR-COMPONENT(APL * theAPL); 
virtual void Destroy(Boolean aborted=FALSE); 
virtual void deleteObject(Boolean deallocate=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 


virtual Type *getDirectType(); 


SB-OPERATOR_COMPONENT(char x); 
Boolean process_typejunfo(); 


Boolean filter(SBLOPERATOR_COMPONENT «library _unit); 


.o 8) 
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class SB-TEXT_OBJECT : public Object 
{ 


private: 
char +the_text; 
public: 
// ontos methods 
SB_TEXT-OBJEGICAPE S| 
Type *get Direct Type(); 
virtual void Destroy(Boolean aborted=FALSE); 
virtual void deleteObject(Boolean deallocate=FALSE); 


virtual void putObject(Boolean deallocate=FALSE); 


SB-TENI OBIE: 
void append(ifstreamd ); 
void append(char +): 
void text(ofstream& ); 


char ¥text(): 


class SB_KEYWORD_DICTIONARY : public Dictionary 
{ 


public: 
// ontos methods 
SBAKEYWORD_DICTIONARY(APL +); 
virtual void Destroy(Boolean aborted=FALSE); 
virtual void deleteObject(Boolean deallocate=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 


Type *getDirectType(); 


Spey WwOKD_DICTIONARY(); 
Boolean add(char *); 
DictionarylIterator iterator(); 


void printOn(ofstream ); 


'e 
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class SB_ADT_OPERATOR_DICTIONARY : public Dictionary 


{ 


public: 


// ontos methods 
SB_ADT_OPERATOR_DIC TIONARM (Pia 
virtual void Destroy(Boolean aborted=FALSE); 
virtual void deleteObject(Boolean deallocate=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 
Typex get Direct Type(); 

|| ----—~------—~ 
SB_ADT_OPERATOR _DIC TION AiG 

void add(SB_ADT_OPERATOR «*); 

void append(SB_ADT_OPERATOR_DICTIONARY +): 
int num(); 

int totalinputs(): 

int total_outputs():; 

Dictionarviterator iterator(); 


void printOn(ofstream& ); 


CO 
{f 


class SB_-EXCEPTION DICTIONARY : public Dictionary 
{ 


public: 
// ontos methods 
SB_EXCEPTION DICTIONARY(APL « ); 
virtual void Destroy(Boolean aborted=FALSE); 
virtual void deleteObject(Boolean deallocate=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 


Type +get Direct Type(); 


bee NCEP IION_DICTIONARY (): 

Boolean add(char +): 

Boolean append(SB_EXCEPTION DICTIONARY + ); 
Dictionarylterator iterator(); 


void printOn(ofstream& ); 


Sy 


class SBID-DECL_DICTIONARY : public Object 
{ 


private: 
TRef «the_dictionary_by_type:; 
TRef *the_dictionary_by uid: 
TRef *theid_declaration_ist: 
Dictionary *dictionary_by_type(); 
Dictionary *dictionary_by-_id(); 
List. *id_declaration_list(); 
public: 
// ontos methods 
SBID_DECL_DICTIONARIEN Gia 
virtual void Destroy(Boolean aborted=FALSE); 
virtual void deleteObject( Boolean deallocate=FALSE); 


virtual void putObject(Boolean deallocate=FALSE): 


Type «get Direct Type():; 


SB-ID_DECISDICTIONARI( 

Boolean add_decl(char *id,SB-TYPE_NAME *typemname); 
Boolean add_decl(SBID_-DECL deel); 

void remove_decl(SB_ID.DECL ¥decl): 

Boolean append(SBID-.DECL_DICTIONARY «), 

int num(); 

SBID.DECL *queryid(char *query_name); 
Dictionarylterator iditerator(): 

Dictionarylterator type_iterator( ); 

ListIterator order_iterator(): 


void printOn(ofstream& ); 
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class SB_ID-_DECL : public Object 
{ 


private: 
char ¥*the id; 


TRef *the_type name; 


pubhe: 
// ontos methods 
SB.ID.DECL(APL ¥); 
virtual void Destroy(Boolean aborted=FALSE); 
virtual void deleteObject(Boolean deallocate=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 


Types get Direct Type(): 





SB_ID-DECL(char +, SB.1) PENA 2). 
SB_TYPE_NAME *type_name(); 
char *id(); 


void printOn(ofstream& ); 


OZ 


class SB-TYPE_NAME : public Object 
{ 


private: 


char «the id; 
char +*the_base_type ud; 


int the_type_code; 
int the_base type_code; 


TRef «the id_decl dictionary; 

SBID-DECL-DICTIONARY +#id_decl-dictionary(); 
public: 

// ontos methods 

Spel yr PE NAME(APL « ); 

virtual void Destroy(Boolean aborted=FALSE); 

virtual void deleteObject(Boolean deallocate=FALSE); 

virtual void putObject(Boolean deallocate=FALSE); 


Typet get Direct Type(): 





SB_LTYPE_NAME(char +.SBID_DECL_DICTIONARY +); 
virtual Boolean operator == (Entity ); 

virtual Boolean operator > (Entity& ); 

ListIterator decliiterator(); 

char +id(); 

char *base_type_id(); 

int type_code():; 

int base_type_code(); 

Boolean recognized(); 

int num-_decl(); 


void printOn(ofstream& outstream); 
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class SB-TYPE_USAGE : public Object 


{ 


private: 


char «the_typed; 
TRef «the_type_ name; 
int the_times_used; 


public: 


}; 


// ontos methods 

SBelyYPE_USAGE(APL +theAPL); 

virtual void Destroy(Boolean aborted=FALSE); 
virtual void deleteObject(Boolean deallocate=FALSE); 


virtual void putObject(Boolean deallocate=FALSE); 





SB-_TYPE_USAGE(char «new_typeid,SB_TYPE.NAME «new_type name); 
char *typeid(): 

void used(): 

int times_used(); 

Type *getDirectType(): 

void printOn(ofstream& outstream); 

SBery PE_NAME 4typename(): 


char *xbase_typed(); 


class SB_TYPE_USAGE_DICTIONARY : pubhe Object 


{ 


private: 


TRef «the dictionary _by_type ud; 
TRef *the_dictionary_by_times_used; 
TRef *the_dictionary_by_base_type; 


Dictionary *dictionary_by_times_used(); 
Dictionary *dictionary_by_type_id(); 
Dictionary *dictionary_by_base_type(); 


public: 


// ontos methods 
SB-TY¥PE_USAGE_DICTIONARM Ew © +). 

virtual void Destrov(Boolean aborted=FALSE); 
virtual void deleteObject(Boolean deallocate=FALSE); 
virtual void putObject(Boolean deallocate=FALSE); 


Type xgetDirect Type(): 


SB_TYPE_USAGELDIC TIO aan), 

Boolean add_type(char *typeid,SB_TYPE_NAME «*typename); 
Boolean add_type(SB_-TYPE_USAGE «type_usage); 

Boolean update(SB-TYPENAME «type name); 

Boolean append(SB_TYPE_USAGE_DICTIONARY +); 


void remove_usage(SB_TYPE_USAGE +the_usage); 
int num(); 


Dictionarylterator typeid-iterator(); 
Dictionarylterator times_used_iterator( ); 
Dictionarylterator base_typeiterator(); 


void printOn(ofstream& ); 
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class SB_RECOGNIZED_TYPES : public Object 
{ 


// this object uses a data file which follows the following format 
// for its input 


case_sensitivily (0 for uo, 1 for yes) 


unrecognized.id (t¢ UNRECOGNIZED for Ada. This td 1s 
automatically asigned to all unrecognized id’s) 
imheritance_id (ie base_type used for Ada) 
generic_typeid (re generic_type used for Ada) 
generic_subprogram_id (ie generic_procedure used for Ada) 
abstract_data_type_id (ie adt used for Ada) 
array_id (ve array used for Ada) 
array-indexid (te index used for Ada) 
array_element_id (ie element used for Ada) 
{recognized_type_td}* (all other type_id’s known to this language 
we INTEGER, POSITIVE etc. used in Ada) 
~ (used to separate the IDs from the rule map) 


rule matriz where 0 indicates no mapping I indicates yes 


each id entered above the ~ makes up the rows and columns of 
the matrix 


private: 


TRef «the name_dictionary; 
Dictionary *name-_dictionary(); 


TRef +the_row array: 
Array +row_array(); 


int array_size; 

Boolean case-sensitive: 

char +convert_to_upper(char +#type_id); 
pubhe: 

// ontos methods 

SB_RECOGNIZED_TYPES(APL #theAPL); 

Type «get Direct Type(): 


virtual void Destroy( Boolean aborted=FALSE); 
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virtual void deleteObject(Boolean deallocate=FALSE); 


virtual void putObject(Boolean deallocate=FALSE); 


SB-RECOGNIZED-TYPES(char ¢file); 
int type_number(char *typed); 


Boolean map(int map_in,int map_out); 


i 


CS 
T 


// 


// this file contains all of the external reterences to the 
// ontos type schemas 


// 


extern Type +SB_LIBRARY_OType; 

extern Type +SB_ADT_COMPONENT_LIBRARY_OType; 
extern Type *SB-OPERATOR_COMPONENT_LIBRARY_OType; 
extern Type +SB-COMPONENT_OType; 

extern Type +SB_-COMPONENT_DICTIONARY_OType; 
extern Type *SB_-KEYWORD_DICTIONARY_OType; 
extern Type +SB_TEXT_OBJECT_OType; 

extern Type +SB_ADT_COMPONENT_OType: 

extern Type +SB-OPERATOR-COMPONENT-_OType; 
extern Type SB_ADT_OPERATOR_OType; 

extern Type +SB_ID-DECL_DICTIONARY_OTy pe: 

extern Type +SB_ID-DECL_OType; 

extern Type #SB_TYPE_NAME_OType; 

extern Type *SB_ADT_OPERATOR_DICTIONARY_OType; 
extern Type +SB_LEXCEPTION_DICTIONARY_OType; 
extern Type +SB_TYPE_USAGE_OType; 

extern Type *SB_TYPE_USAGE_DICTIONARY_OType; 
extern Type +SB_RECOGNIZED_TYPES_OType; 


extern SB_LIBRARY +SB_MAIN_LIBRARY; 


# define DEFAULT_NAMESSIZE 21 
#define SB_-UNRECOGNIZED-_TYPE 1 
#define SB_BASE-TYPE 2 

#define SB.GENERIC_TYPE 3 

#define SB_GENERIC_SUBPROGRAM 4 
#define SB_-GENERIC_.VALUE 5 
#define SB_ABSTRACT_DATA_TYPE 6 
#define SB_-ARRAY 7 

#define SB-ARRAY_INDEX 8 


#define SB_ARRAY_ELEMENT 9 
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#include "sball.hxx™ 

|| —-------—------ 

// these defines are to declare the command line 
// arguments 


extern 'C--" 


{ 


int system(char *); 


} 


#tdefine KWL “kwl" // caps_softbase kwl language out_file 
#define KWL_N 1 // keyword list 


#tdefine KWQ "kwaq" // caps_softbase kwq language in_file out_file 
#define KWQ_N 2 // keyword query (2) 


#tdefine OL "ol" // caps_softbase ol langnage out_file 
#define OL_N 3 // operator list (3) 


#tdefine TL "tl" // caps_softbase tl language out_file 
#define TL_N 4 // type lst (4) 


#tdefine CQ "cq" // caps_softbase cq language psdl_file out_file 
#define CQ_N 5 // component query (5) 


#define CA "ca" // caps.softbase ca langnage 
// psdlfile spec.in body-in 
#define CA_N 6 // component add (6) 


#tdefine CU "cu" // caps_softbase cu langnage 
// psdlfile spec_in body_in 
#define CU_N 7 // component update (7) 


#define CD "cd" // caps_softbase cd langnage component_name 
#define CD_N 8 // component delete (8) 


#tdefine CL "cl" // caps_softbase cl language out_fil 
#define CL_N 9 // component lst (9) 


#tdefine CGM "“cgm" // caps_softbase cg language 
// psdl component map-out 
#define CGM_N 10 // component generate map (10) 


#tdefine ML "ml" // caps_softbase ml language generator table 
#tdefine ML_N 11 // make new hbrary 


#tdefine CV "cv" // caps_softbase cv language 
// component_name psdl 

// ada_spec ada_body 

#define CV_N 12 // component mew 


#tdefine DL "dl" // caps_softbase dl langnage 
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#define DL_N 13 // delete language library 


#define CDIAG "cdiag" // caps_softbase cdiag language 
// component_name outfile 
#define CDIAG_N 14 // print component diagnostics 


#tdefine LOGICAL_DB_NAME "caps_softbase_LogDB" 
#tdefine LIBRARY_PREFIX "SB_" 
#tdefine LIBRARY_SUFFIX "_LIBRARY" 


#define TEMP_ENVIRONMENT "TEMP" 
#define DEFAULT_TEMP "./" 
#define NORMALIZE "“caps_softbase_normalize " 


#tifdef _TURBOC_ 

int linenumber; 

FILE *yyin, 

#else 

expert ''C--"' 

{ 
extern int linenumber; // used to report the line number of an error 
extern FILE +yyin; // ler input stream 


} 


#Hendif 


Type *+SB_LIBRARY_OType; 

Type *SB_ADT_COMPONENT_LIBRARY OType; 

Type *SBLOPERATOR_COMPONENT _LIBRARY_OType; 
ivpe +5B_COMPONENT_OType; 

ype +5 B_-COMPONENT DICTIONARY _OType:; 


Type *SB_KEYWORD_DICTIONARY_OType; 
Type *SB_TEXT_OBJECT_OTy pe; 


Type SB_ADT_COMPONENT_OType; 


Type *SB-OPERATOR_COMPONENT_OType; 
Type *SB_ADT_OPERATOR_OType; 


Type *SB_ID-DECL_DICTIONARY_OType: 

Type *SB_ID-DECL_OType; 

Type *SB_TYPE_NAME_OType; 

Type «SB_ADT_OPERATOR-DICTIONARY_OType; 
Type SB_EXCEPTION _DICTIONARY_OType; 
Type *SB_TYPE_USAGE_OType: 

Type +SB_TYPE_USAGE_DICTIONARY_OType; 
iiype *SB_RECOGNIZED_TYPES_OType; 
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SB_LIBRARY #SB_MAIN_LIBRARY; 


SB_COMPONENT *YYPARSE-component; // used by yyparse to pass the components 
extern yyparse(); 


main(int argc,char *argv{}) 


{ 
int exitflag; 
void update_db_types(); 
int parse_command(int arge,char *argv{}); 
Boolean get_language_library(int arge,char *argv|{}); 


if(OC-open( LOGICAL_DB_NAME)#TRUE) 
{ 


cout < "THE LOGICAL SOFTBASE " < LOGICAL_.DB_NAME < “OPEN FAILED\n"; 
exit(1); 


iF 


int the-operation=parse_commmand(argc.argv); 
if(the_operationZML_N && the_operationZ0) 


if('get_language_library(argc,argv)) 


exit(1); 


hs 
he 
update_db_types(); 


switch(the_operation) 


{ 


case 0: 
{ 
cout < "AN INVALID OPERATION WAS GIVEN TO SB\n"; 
break; 
HE 
case KAWL_N: 
{ 
if(arsc=—4) 
{ 
ofstream outfile(argv(3],10s::noreplace); 
if(outfile) 


// outfile was opened successfully 
SB_MAIN_LIBRARY—keyword_list(outfile); 
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exit flag=0; 


} 


else 


{ 


cout < "UNABLE TO OPEN OUTPUT FILE\n"; 
exit _flag=1, 


}s 


else 


{ 


cout < "INCORRECT NUMBER OF ARGUMENTS\n"; 
Sena. 
iF 


break; 
ie 
case KWQ_N: 
{ 
if(argc==5) 
{ 
ifstream infile(argv(3],ios::nocreate); 
if(infile) 
{ 
// query file open successful 
ofstream outfile(argv[4],ios::noreplace); 
if(outfile) 
{ 
// output file opened successful 
SB_MAIN LIBRARY —keyword_query(infile outfile); 
exit_flag=0; 


else 


{ 


cout. < "UNABLE TO OPEN OUTPUT FILE\n"; 
exit_flag=1; 


} 


else 


{ 


cout < "UNABLE TO OPEN INPUT FILE\n"; 
exit flag =e 

he 
} 


else 


{ 


cout < "INCORRECT NUMBER OF ARGUMENTS\n"; 
exit flag=1; 


} 


break; 
}; 
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case OLE: 


if(argc==4) 


{ 
ofstream outfile(argv[3],ios::noreplace); 
if(outfile) 
{ 
// output file opened successfully 
SB_MAIN_LIBRARY—operator_ist(outfile); 
exit flag=0; 
} 
else 
{ 
cout < "UNABLE TO OPEN INPUT FILE we 
exit flag=1; 
i 
} 
else 
{ 
cout < "INCORRECT NUMBER OF ARGUMENTS \n"; 
exit flag=1; 
es 
break: 
Je 
ease CLAN: 
{ 
if(argc==4) 
{ 
ofstream outfile(argv{[3],ios::noreplace); 
if(outfile) 
{ 
// output file opened successfully 
SB_MAIN_LIBRARY—component_list(outfile); 
exit flag=0; 
else 
{ 
cout < "UNABLE TO OPEN INPUT ELLE nes 
exituflac= 
ie 
} 
else 
{ 
cout < "INCORRECT NUMBER OF ARGUMENTS \n"; 
exit flag=1; 
he 
break; 
le 
case PLAN: 
{ 
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if(argc==4) 


{ 
ofstream outfile(argv[3].10s::noreplace); 
if(outfile) 
{ 
// output file opened successfully 
SB_MAIN LIBRARY—type_hst(outfile); 
exit flag=0; 
j 
else 
{ 
cout < "UNABLE TO OPEN INPUT FILE\n"; 
exiilag—); 
he 
} 
else 
{ 
cout < "INCORRECT NUMBER OF ARGUMENTS\n"; 
exit _flag=1; 
is 
break; 
case CQ_N: 
{ 
if(arge==5) 
{ 
yyin=fopen(argv([3],"r"): 
if(yvinz~ANULL) 


// psdl file opened succesfully 
ofstream out file(argv[4],10s::noreplace); 


if(outfile) 


{ 
// outfile open so do parse psdl_file 


// nest the transaction so syntar error transaction 
// can be aborted 


get_language_library(arge,argy); 
if(yyparse()==0) 
// file parsed successfully result 1s 
// wn YYPARSE_component 
if(Y YPA RSE_component— get Direct Type()==SB_OPERATOR-.COM PONENT OT 


((SBLOPERATOR-COMPONENT *)YYPARSE_component)— 
process_ty pe info(); 


else 


{ 
((SBADT-COMPONENT +#)YYPARSE-component)— 
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process_type info(); 


i 


SB_MAIN LIBRARY—query(Y YPARSE-component,outfile); 
//Y¥YPARSE_component-> Destroy(FALSE); 
exit fag=U; 


else 


{ 


cout < "THERE WAS AN ERROR DURING PARSING "; 
cout < arevisl) << an 


exit_flag=1; 
he 
} 
else 
{ 
cout < "UNABLE TO OPEN OUTPUT FILE\n"; 
exit_flag=1; 
ie 
} 
else 
{ 
cout << "UNABLE TO OPEN INPUT FILE Vn: 
exit_flag=1; 
i 
} 
else 
{ 
cout < "INCORRECT NUMBER OF ARGUMENTS\n"; 
exiteilag— |r 
Ne 
break: 
Ie 
case CA_N: 
i 
if(argc==6) 
{ 


yvyin=fopen(argy(3],"r"); 


if(yyinANULL) 


// psdl file opened succesfully 
ifstream spec_in(argv{4],los::nocreate); 
if(spec_in) 
{ 
// spec-in file open so do parse psdl_file 
ifstream body in(argv(5],ios::noreplace); 
if( body_in) 


// all files successfully open so start transaction 
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// nest the transactions so syntax errors can 


// be aborted 


get_language_library(argc,argv); 
update_db_types(); 


if(yyparse()==0) 


// file parsed successfully result 1s 

// in YYPARSE_component so add the psdl to it 

// and the spec and body 

ifstream psdl-in(argv{3],ios::nocreate); 
YYPARSE-.component—add_text(psdlin,spec.in,body in); 


// now normalize the formal description if there is 
// one 
if(strlen(Y YPA RSE_component— 
formal_description()—text())>0) 
{ 


char *temp_dir = getenv(TEMP_EN VIRONMENT); 
if (temp_dir == NULL) 
{ 
temp_dir = new char[strlen(DEFAULT_TEMP) + 1}; 
strcpy(temp-dir, DEFAULT_TEMP); 


? 
char +temp-_file = tempnam(temp_dir, "ojb"); 
char xerror_file = tempnam(temp-dir,"nrm"); 


ostrstream command_buffer; 
ostrstream remove_buffer; 
ostrstream obj_file_buffer; 
ostrstream norm_file_buffer; 


obj_file_buffer < temp_file << ".obj" < ends; 
norm-file_buffer < temp_file< ".obj.norm" < ends; 


char *obj_file=ob)j_file_buffer.str(); 
char *norm_file=norm_file_buffer.str(); 


command_buffer < NORMALIZE; 
command_buffer < obj-_file< " "; 
command_buffer < error-_file < ends; 


remove_buffer < "rm " < temp-_file << ".*"; 
remove_buffer < ends; 
ofstream formal_desc(ob)_file); 
YY- 
PARSE_-component —formal_description()—text(formaL desc); 
formal_desc.close(); 
char *command=commandbufler.str(); 
int status_flag=system(command); 


if(status_flag==0) 
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{ 


// succsessful so get the norm file 
ifstream norm_in(norm_file); 
if(normin) 


// file was there so append it 
YYPARSE-_component— 
norm_formal_description()— 
append(norm.in); 


if(YYPARSE_component— get DirectType()== 
SBLOPERATOR-COMPONENT OType) 


((SBLOPERATOR_COMPONENT 
*)YYPARSE_component )— 
process type info(); 


else 


((SB_ADT-COMPONENT 
*)YYPARSE_component )— 
process type info(); 


te 


if(SB_MAIN_LIBRARY— 
query(YYPARSE_component—component_name())= 
{ 
// component not already in library so store it 
OC_transactionStart(); 
YY PARSE_component— putObject(); 


Boolean add_status=FALSE; 
add_status=SB_MAIN-_LIBRARY—add(Y YPARSE 
if(add_status==TRUE) 
{ 
OC_transactionCommit(); 
exit_flag=0; 


else 


\ 
exitai ae —ie 
cout < "UNABLE TO ADD COMPONENT ": 


cout < 

YYPARSE_component —component_name(); 
cout < "TO MAIN LIBRARY\n"; 
OC-transactionAbort(); 


else 


{ 


cout < "COMPONENT " < 
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YY PARSE_component—component_name(); 
cout <" IS ALREADY IN MAIN LIBRARY "< 


endl; 
cout < "UNABLE TO ADD IT AGAIN \n"; 
exielag—l, 
i 
} 
else 
{ 
cout < "ERROR NORMALIZING AXIOMS\n"; 
exit_flag=1; 
}; 
j 
else 
{ 


cout < "ERROR NORMALIZING AXIOMS\n"; 
ifstream error_stream (error file); 
if(error_stream) 


char +theine=new char(256]; 
while(!error_stream.eof()) 
{ 
error_stream.getline(the_line,255); 
cout < the_line < endl; 
error_stream > ws; 


ie 


else 


{ 


cout < "COULD NOT OPEN NORMALIZE"; 
cout < " ERROR FILE\n"; 


ap 
i 
} 
else 
{ 


if( Y YPARSE-component— get Direct Type()== 
SB_OPERATOR.COMPONENT OType) 


((SB_OPERATOR-COMPONENT 
*)YYPARSE-_component )— 
process.type info(); 


((SBADT_COMPONENT *)YYPARSE-component)— 
process type info(); 
i 


if(SB_MAIN_LIBRARY— 
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query(YYPA RSE-component—component_name())==NULL) 
{ 
// component not already in library so store it 
OC.-transactionStart(); 
YYPARSE-component—putObject(); 


Boolean add.status=FALSE; 


add_status=SB_MAIN LIBRARY —add(YY PARSE_compone 
if(add.status==TRUE) 


OC-transactionCommit(); 
exit_flag=0; 
} 


else 


exit ilag=1e 
cout < "UNABLE TO ADD COMPONENT "'; 
cout << 

YY PARSE-component —component_name(); 
cout < "TO MAIN LIBRARY\n"; 
OC_transactionA bort(); 


else 


{ 


cout < “COMPONENT "<< 
YYPARSE_component—component_name(); 
cout < " IS ALREADY IN MAIN LIBRARY "< endl; 


cout < "UNABLE TO ADD IT AGAIN \n"; 
exit_flag=1; 


je 
} 


else 
{ 
cout < "THERE WAS AN ERROR DURING PARSING "; 
cout < argv([3] < "\n"; 


exit flag=1; 
}: 
} 
else 
{ 
cout < "UNABLE TO OPEN THE IMPLEMENTATION BODY FILE\iee 
exitehag=1- 
}: 
} 
else 
{ 
cout < "UNABLE TO THE IMPLEMENTATION SPEC FILE Wag. 
exit aac 
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\e 


} 
else 
{ 
cout < "UNABLE TO OPEN PSDL RLEE NH. 
exit flag=1; 
y 
} 
else 
{ 
cout < "INCORRECT NUMBER OF ARGUMENTS \n"; 
exit_flag=1; 
ie 
break, 
ie 
case ML_N: 
{ 
if(argc==4) 
{ 
char +languagename=argv([2]; 
char +«library_name=new char{(strlen(languagename)+ 
strlen(LIBRARY_PREFIX)+ 
strlen(LIBRARY _SUFFIX)+1]; 
strepy(library name,LIBRARY_PREFIX); 
streat (library name,language_name); 
streat(library name,LIBRARY_SUFFIX); 
OC_transactionStart(); 
SB_MAIN_LIBRARY=new SB_LIBRARY (library name,argv(3]); 
SB_MAIN_LIBRARY—putObject(); 
OC_transactionCommit(); 
exit flag=0; 
} 
else 
{ 
cout < “INCORRECT NUMBER OF ARGUMENTS \n"; 
exit flag=1; 
le 
break; 
Me 
case DL_N: 
{ 
iar gca—c) 
{ 


OC.-transactionStart(); 
SB_MAIN _LIBRARY—deleteObject (TRUE); 
OC_transactionCommit(): 


ia 


exit flag=0; 
} 
else 
{ 
cout < "INCORRECT NUMBER OF ARGUMENTS\n":; 
exit flag=1; 
in 
break: 


EB 
case CV_N: 


if(arge=— 1) 


ofstream psdl_out(argv{4],1os::noreplace); 
if( psdl_out ) 
{ 
ofstream spec_out(argv[5],1os::noreplace); 
if(spec_out) 


ofstream body_out(argv[6],ios::noreplace); 
if( body_out) 
{ 
get_language_library(arge,argv); 
update_db-_types(); 
SB_COMPONENT 
*the_-component=SB_MAIN LIBRA RY—query(argv(3]); 
if(the.component#NULL) 


// component found so dump all streams 
(the-component— psdl_text())—text(psdl-out); 
(the_-component—imp-_spec_text())—text(spec_out); 
(the-component—imp_body-text())—text(body_out); 
psdl_out.close(); 

spec_out.close(); 

body-out.close(); 

exit_flag=0; 


else 


{ 


cout < "COMPONENT " < argv[3] < '" NOT FOUND\n"; 
exit flag=1;, 


Ir 
} 


else 


{ 


cout < "UNABLE TO OPEN THE IMPLEMENTATION BODY FILE\n"; 
exitsliae—4- 


i 


jh 





} 


else 
{ 
cout < "UNABLE TO OPEN THE IMPLEMENTATION SPEC FILE\n"; 
exit_flag=1; 
}; 
} 
else 
{ 
cout < "UNABLE TO OPEN PSDL FILE\n"; 
exit flag=1; 
i 
} 
else 
{ 
cout < "INCORRECT NUMBER OF ARGUMENTS\n": 
exit flag=1; 
i 
break; 
}; 
case CD_N: 
{ 
if(argc==4) 
{ 
SB_COMPONENT *the-component=SB_MAIN_LIBRARY—query(argv(3}]); 
if(the-component#N ULL) 
// component found so output its sources to backup 
// this is where the SCCS code goes for the.component 
//(the-componeut->psdltert())->tert(psdl_out); 
//(the-component->imp.spec_terl())->terl(spec_out); 
//(the-component->imp_body_tert())->ltert(body_out); 
//psdlout.close(); 
//spec-out.close(); 
/[body_out.close(); 
OC _transactionStart(); 
// now delete the component from the library 
SB_MAIN LIBRARY —delete_-component(the_-component); 
exit flag=0; 
OC.transactionCommit(); 
} 
else 
{ 
cout < "COMPONENT " < argv([3] < '" NOT FOUND\n"; 
exit flag=1; 
ie 
} 
else 
{ 
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cout < "INCORRECT NUMBER OF ARGUMENTS\n"; 
exit flag=1; 
he 
break; 
}; 


case CDIAG_N: 
{ 


if(arge==5) 


{ 


ofstream outfile(argv[4],ios::noreplace); 


if(outfile) 
{ 


// outfile was opened successfully 
SB-COMPONENT +the-component=SB_MAIN_LIBRARY—query(argyv([3}); 
if(the-component#NULL) 


// component found so outputs its diagnostics 


the-component—printOn(outfile); 


} 


else 


{ 


cout < "COMPONENT " < argv[3] < " NOT FOUND\n"; 
exit flag=1; 


1, 


else 


{ 


cout < "UNABLE TO OPEN OUTPUT FILE\n"; 
exit_flag=1; 
he 


else 


{ 


cout < "INCORRECT NUMGBERSOE ARGUMENTS \n"; 
exit flac=— 


eae 

}; 
ie 

OC -close(); 


exit(exit flag): 


}; 


int yyerror(char +s) 


{ 


cout < "\n" <s <" on line number " < linenumber; 
cout << "\n": 
return(Q): 


ie 


void update_db_types() 


{ 


SB_LIBRARY_OType=(Type +) OC_lookup("SB_LIBRARY"); 
SB-COMPONENT_OType=(Type *) OC _lookup("SB_COMPONENT"); 
SBADT_COM PONENT _OType=(Type *) OC _lookup("SB_ADT_COMPONENT"); 
SBID_DECL_DICTIONARY_OType=(Type *) OC_lookup("SB_ID_DECL_DICTIONARY"); 
SBID-DECL_OType=(Type +) OC Jookup("SB_ID_DECL"); 
SB-TYPENAME-_OType=(Type *) OC_lookup("SB_TYPE_N AME"); 
SB_ADT-OPERATOR_DICTIONARY_OType=(Type *) 
OC_lookup("SB_ADT_OPERATOR_DICTIONARY"); 
SB-ADT-OPERATOR-OType=(Type *) OC ookup("SB_ADT_OPERATOR"); 
SB-OPERATOR-COM PONENT _OType=(Type *) OC lookup("SB_OPERATOR_COMPONENT"); 
SBEXCEPTION DICTIONARY _OType=(Type *) OC lookup("SB_EXCEPTION_DICTIONARY"); 
SB-_TEXT_OBJECT_OType=(Type +) OC Jookup("SB_TEXT_OB JECT"); 
SB_KEYWORD_DICTIONARY _OType=(Type *) OC_lookup("SB_KEYWORD_DICTIONARY"):; 
SB_-COMPONENT DICTIONARY OType=(Type +) 
OC_lookup("SB_COMPONENT_DICTIONARY"); 
SB_ADT-COMPONENT-_LIBRARY OType=(Type +) 
OC_lookup("SB_ADT_COMPONENT_LIBRARY"); 
SB_-OPERATOR-COMPONENT LIBRARY OType=(Type *) 
OC_lookup("SB_OPERATOR_COMPONENT_LIBRARY"): 
SB_-TYPE_USAGE_OType=(Type *)OClookup("SB_TYPE_USAGE"); 


SB_TYPE_USAGE_DICTIONARY _OType=(Type 


*)OC_lookup("SB_TYPE_USAGE_DICTIONARY" ); 
SB-_RECOGNIZED-TYPES_OType=(Type *)OCookup("SB_RECOGNIZED_TYPES"); 


int parse-command(int argc, char +argv{]) 


{ 


int return_value=0: 
if(arge >2) 
if(stremp(argv{1],k WL)==0) 
return_value=KWL_N; 


else if(stremp(argv[1],KWQ)==0) 
{ 


return_value=kKWQ_N; 


} 


else if(stremp(argv[1],OL)==0) 
return_value=OL_N: 
else if(stremp(argv[1],TL)==0) 
. return _value=TL_N; 
else if(stremp(argv[1],CQ)==0) 
return_value=CQ_N; 
else if(stremp(argy[1],CA)==0) 
return_value=CA_N; 
else if(stremp(argv[1],CU)==0) 
return_value=CU_N; 
else if(stremp(argv[1],CD)==0) 
return_value=CD_N; 
else if(stremp(argv[1],CL)==0) 
return_value=CL_N; 


} 
else if(stremp(argv[1],CGM)==0) 


return value=CGM_N: 
else if(strcmp(argv[1],ML)==0) 
return _value=ML_N; 
else if(stremp(argv{1].CV)==0) 
return_value=CV_N; 
else if(stremp(argv[{1],DL)==0) 
return_value=DL_N; 
else if(strcemp(argv(1],CDIAG)==0) 
return_value=CDIAG_N; 
} 
} 


returl ret urn_value; 


is 
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Boolean get language_library(int argc,char *argv{}) 


{ 


Boolean return_flag=FALSE; 
if(arge > 0) 


char +language_name=argy [2]; 


char *library name=new char([strlen(languagename)+ 
strlen(LIBRARY_-PREFIX )+ 
strlen(LIBRARY SUFFIX)+1]; 


strepy(library name, LIBRARY_PREFIX); 
streat(library_ name, language_name); 
streat(library_name,LIBRARY_SUFFIX); 


// ASSIGN THE GLOBAL VARIABLE SB_MAIN_LIBRARY THE VALUE OF THE 
LIBRARY 


SB_MAIN_LIBRARY=(SB_LIBRARY *) OC Jookup(library_name); 


if(SB_MAIN_LIBRARY==NULL) 
{ 


cout < “LIBRARY FOR LANGUAGE "; 
cout < language name < " NOT FOUND\n"; 
return flag=FALSE: 

} 


else 


{ 
revummenag== THU: 
ie 
} 


else 


{ 
cout. < "INCORRECT NUMBER OF ARGUMENTS\n"; 


}; 


return return_flag; 


hi 


# include ”sball.hxx” 
# include ’sbextern.h” 


SB_ADT-_COMPONENT::SB_ADT_COMPONENT(APL #theA PL): 
SB-COMPONENT(theA PL) 


{ 
}; 


SB_ADT_COMPONENT::SB_ADT_COMPONENT (char +id) : SB-COMPONENT(id) 


SB_TYPE.USAGE_DICTIONARY #new-_adt_usage=new 
SB_TYPE_USAGE_DICTIONARY(); 
the_adt_usage=new adt _usage—findTRef(); 


SB_ADT_-OPERATOR_DICTIONARY *new-operator.specs=new 
SB_ADT_OPERATOR_DICTIOMNA RY (); 


the_operator_specs=new operator specs—findT Ref(); 


void SB_ADT.COMPONENT::insert adt tusage(SB-TYPE USAGE DICTIONARY 


new -adt_usage) 


adt_usage()—append(new_adt_usage); 


}: 


void SB_ADT_COMPONENT::insert operators(SB_ADT OPERATOR DICTIONARY 


new-_operators) 


operator-specs( )—append(new operators); 


i 


void SB_ADT_COMPONENT::Destroy(Boolean aborted) 
{ 


adt_usage()— Destroy(aborted); 
operator-_specs()— Destroy(aborted); 


delete the_adt_usage; 
delete the_operator-_specs; 


SB_COMPONENT:: Destroy(aborted); 
Ne 


void SB_ADT_COMPONENT::deleteObject( Boolean deallocate) 
{ 





adt_usage()—deleteObject( FALSE); 
operator_specs()—deleteObject(FALSE); 
SB_COMPONENT::deleteObject(deallocate); 

}; 

void SB_ADT_COMPONENT::putObject( Boolean deallocate) 
adt_usage()—put Object(deallocate); 
operator-_specs()—putObject(deallocate); 


SB_COMPONENT::putObject(deallocate); 


I 


SB_TYPE_USAGE_DICTIONARY *SB_ADT-COMPONENT::adt_usage() 


{ 
return (SB_TYPE_.USAGE_DICTIONARY «)(the_adt_usage— Binding()); 
Bh 


SB_ADT-OPERATOR-_DICTIONARY #SB_ADT_COMPONENT::operator-specs() 


{ 
return (SB_ADT_OPERATOR_DICTIONARY *)(the_-operator_specs— Binding()); 


ie 
Type *SB_ADT_COMPONENT::get Direct Type() 


{ 
return SB_ADT_COMPONENT OType: 
}; 


void SB_ADT_COMPONENT::printOn(ofstream& outstream) 
{ 


outstream < "\nOUTPUTING THE CONTENTS OF DATA TYPE "; 

outstream < this—component_name() < ":\n\n"; 

outstream < "num unrecognized types " < nunvunrecognized_types() < "\n"; 
outstream < "GENERIC SPECS\n": 

SB-_COM PONENT?:: generic -usage()—printOn(outstream); 

outstreaam < "\nTYPE SPECS\n"; 

adt_usage()—printOn(outstream); 


outstream < "\nOPERATOR SPECS\n": 
operator-_specs()—printOn(outstream); 


outstreaam < "\n\n": 
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int SB_ADT_COMPONENT::num_adt_operators() 
{ 


return operator_specs()—num(); 


he 


int SB_ADT_COMPONENT::totalinputs() 
{ 


return operator_specs()—total inputs(); 


int SB ADT_COMPONENT::num_adts() 
{ 


return adt_usage()—num(); 


: 


int SB_ADT_COMPONENT::total_outputs() 
{ 


return operator_specs()—total_out puts();: 


a 


Dictionarylterator SB_ADT_COMPONENT::adt_operator iterator() 
{ 


return operator_specs()—iterator(): 


ie 


Dictionarylterator SB_ADT_COMPONENT::adt Aterator() 
{ 


return adt_usage()—typeiditerator(); 


}. 


Boolean SB_ADT_COMPONENT::process type info() 
{ 


// tell each operator to update ats type usage lists 
// they inturn update the adt lists 


Dictionarylterator next_operator=adt_operatoriterator(); 
while(next operator.moreData()) 


((SB_ADT_OPERATOR +*)(Entity *)next_operator())— 
process _typeinfo(this); 


}; 
return TRUE; 
} 
int SB_ADT_COMPONENT::num_generic_types( ) 


{ 


int the num=0: 
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Dictionarylterator next operator=adt operator iterator(); 
while(next operator.moreData{)) 


the num=thenum-+ 
((SBADT_OPERATOR +*)(Entity *)next operator())— 


num_generic_types( ); 


MS 


// now get an iterator for the adt generics list 


Dictionarylterator next 1d=SB_COMPONENT?:: generic usage()— 
typediterator(); 


while(nextid.moreData()) 


SB._TYPE.USAGE #the.usage=(SB_TYPE.USAGEs)(Entity *)nextd(); 
SB_-TYPE_NAME +*the_type name=the_usage—type name(); 
if(the_typename—type_code()==SB_GENERIC_TYPE) 


{ 


Meaini—tieairtni- 


ie 
is 


return thenum: 


}; 


Boolean SB_ADT_COMPONENT::filter(SB_ADT_COMPONENT +library -unit) 
{ 


// apply additional filter operations to the library unit 
// to see if the component can be rejected. True means 
// that it may still be a match, False indicates no match 


return TRUE: 
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# include ”sball.hxx” 


# include ’sbextern.h> 


SB_ADT_COMPONENT_LIBRA RY::SB_ADT.COMPONENT_LIBRARY({ APL +theAPL) : 
Object(theAPL) 
{ 

i 


SB_ADT_COMPONENT _LIBRARY::SB_ADT-COMPONENT_LIBRARY() : Object() 
{ 


SB-COMPONENT DICTIONARY «new_adt_-component_dictionary= 
new SB-COMPONENT_DICTIONARY(); 


the_adt_component_dictionary= 
new _adt_component dictionary —findT Ref(); 


Dictionary *new_main_librarv=new Dictionary(OC_integer, 
OC-dictionary, 
TRUE, 
FALSE): 


the_main_library=new_main_library—findTRef(); 


void SB_ADT_.COMPONENT_LIBRARY::Destroy( Boolean aborted) 
{ 


adt_component_dictionary()— Destroy(aborted); 


// now must iterate through the multi-attribute tree of 
// dictionaryies to destroy each one of them 


Dictionary *by_num_adts; 
Dictionary *by_num_operators; 
Dictionary *«by_num_.total_inputs; 
Dictionary *by_num_generics; 
Dictionary *by_num_total_outputs;: 
Dictionary *leaf_dictionary; 


by_num-_adts=main_library(); 
Dictionarylterator next_by num_adt(by_num_adts); 
while(next_by_num_adt.moreData()) 


by_num_operators=(Dictionary *)(Entity *)next_-by_num_adt(); 


// components must have at least as many operators as the query 





* 


Dictionarylterator next_by num _operators(by_num_operators); 


while(next_by_num_operators.moreData()) 


by_num_generics=(Dictionary *)(Entity *) 
next by _num_operators(); 


Dictionarylterator next_by_num-generics(by_num-generics); 


while(next_by_num_generics.moreData()) 


{ 


by_num-total_outputs=(Dictionary *)(Entity *) 
next_by_num_-generics(); 


Dictionary Iterator 
next -by_num_total_out puts(by_num_totaLoutputs); 


while(next_-by_num_total_outputs.moreData()) 


{ 


by_num_total_inputs=(Dictionary *)(Entity *) 
next_by_num_total_outputs(); 


DictionaryIterator 
next_by num_total_inputs(by_num_totaLinputs); 


while(next_by_num_total_inputs.moreData()) 


leaf_dictionary=(Dictionary *)(Entity *) 
next_by_num_totalinputs(); 


leaf_dictionary — Destroy (aborted); 


by _num_total_inputs— Destroy(aborted); 


by _-num_total_outputs— Destroy(aborted); 


}; 


by _num_generics— Dest roy(aborted):; 
by_num_adts— Destroy(aborted); 


Ns 


delete the_-adt_component_dictionary; 
delete themain_library; 


Object::Destroy(aborted); 


,; 
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void SB_ADT.-COMPONENT_LIBRARY::deleteObject(Boolean deallocate) 
{ 


adt_component_dictionary()—deleteObject(deallocate); 


// now must iterate through the multi-attribute tree of 
// dictionarytes to destroy each one of them 


Dictionary *by_num_adts; 
Dictionary *by_num_operators; 
Dictionary *by_num_total_inputs; 
Dictionary *by_num-_generics; 
Dictionary +by_num_total_outputs; 
Dictionary *leaf_dictionary; 
by_num_adts=main_library(); 


Dictionarylterator next_by num_adt(by_nun_adts); 


while(next_by_num_adt.moreData()) 
{ 
by_num_operators=(Dictionary *)(Entity *)next_by_num_adt(); 
// components must have at least as many operators as the query 
Dictionarylterator next_by _num_operators(by_num_operators); 
while(next_by_num_operators.moreData()) 
{ 
by num_generics=(Dictionary *)(Entity *) 
next _-by 11um_operators( ); 


Dictionarylterator next_by num_generics(by _num_generics); 


while(next_by_num_generics.moreData()) 


{ 


by-num_total_outputs=(Dictionary *)(Entity *) 
next _by_num_generics(); 


Dictionarylterator 
next_by num_total_outputs(by_num_totaloutputs); 


while(next_by_num_totaloutputs.moreData()) 


{ 


by_num_total_inputs=(Dictionary *)(Entity +*) 
next.by num-_total_outputs(); 


Dictionarylterator 
next _by num_total_inputs(by_num_totalLinputs); 


while(next_by_num_totaLinputs.moreData()) 
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{ 


leaf_dictionary=(Dictionary +)(Entity *) 
next_by_num_total_inputs(); 


leaf_dictionary —deleteObject( FALSE); 


}; 
by_num_-total_inputs—deleteObject(FALSE); 


I 
by_num_total_outputs—deleteObject( FALSE); 


ie 
by.num_generics—deleteObject( FALSE); 


ie 
by.num_adts—deleteObject( FALSE); 


}; 
Object::deleteObject(deallocate); 
I 


void SB_ADT_COMPONENT_LIBRARY::putObject(Boolean deallocate) 
{ 


adt_component _dictionary()—Dictionary::putObject(deallocate); 
main_library()—putObject(deallocate); 


Object::putObject(deallocate); 
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Type SB_ADT.COMPONENT LIBRARY::get DirectType() 


return SB_ADT_COMPONENT LIBRARY _OType:; 
Ir 


SB_COMPONENT DICTIONARY 
*SB_ADT_COMPONENT _LIBRARY::adt_component_dictionary() 


{ 
return (SB-COMPONENT_DICTIONARY +)(Entity *) 
the adt component dictionary — Binding(); 
}; 


Dictionary *SB_ADT_COMPONENT _LIBRARY::main_library() 
{ 


Ee 


return (Dictionary *)(Entity *)themain_library—Binding(); 


Boolean SB_ADT_-COMPONENT_LIBRARY::add(SB_ADT_COMPONENT «new-_component ) 


{ 
Boolean return_flag=TRUE; 


Dictionary *by_nun_adts; 
Dictionary *by_num_operators; 
Dictionary *by_num_total_inputs; 
Dictionary *by_num_generics; 
Dictionary *by_num_total_outputs; 
Dictionary *leaf_dictionary; 


adt_component-_dictionary()—add(new_com ponent); 
adt_component_dictionary()— Dictionary ::putObject(); 


// insert into the component dictionary was successfull 
// so insert it tuto the library 


// get the dictionary for the number of adt’s 
DY inMizadts=miaineloraly). 
// now find the dictionary for adt_operators 


if( by _num_adts—isIndex(new_component—nun_adts())) 
by_num_operators=(Dictionary *)(Entity *)(*by_num_adts) 
(new _component—nuni_adts()]; 


} 


else 
by_num_operators=new Dictionary(OC_integer, 
OC -dictionar: 
TRUB, 
FALSE 


by_num_adts—Insert(new_component— 
hnum_adts(), 
by_nui_operators):; 


// have correct by-num_operator dictionary so get the 
// generic types dict. 


if(by_num_operators—isIndex(new_component— 
num_adt_operators())) 


by_num_generics=(Dictionary *)(Entity *) 
(xby_num_operators) 
[ new_component — 


num_adt_operators()]: 


else 
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{ 


by_num_generics=new Dictionary(OCVWnteger, 
OC dictionary, 
TRUE, 
FALSE); 


by_num_operators—Insert(new_-component— 
num_adt_operators(), 
by_num_generics); 


// got the generics dictionary so get the total base 
// types dictionary 
if( by_num_generics—isIndex(new_component— 
numi_generic_types())==TRUE) 
{ 


by_num_total_outputs=(Dictionary *)(Entity *) 
(xby _num_generics) 
[new_component—num_generic_types()]; 


} 


else 
{ 
by_num_total_outputs=new Dictionary(OC_integer, 
OC-_dictionary, 
TRUE, 
FALSE); 


by num_generics—Insert(new component— 
num_generic_types(), 
by_num_total_outputs); 


if(by_num_total_outputs— 
isIndex(new component—total_outputs())==TRUE) 
{ 
by_num_total_inputs=(Dictionary *)(Entity *) 
(xby_num_total_outputs) 
[new_component—total_outputs()]; 


else 


{ 


by_num_totalinputs=new Dictionary(OC_integer, 
OC_dictionary, 
TRUE, 


Wa 


TRUE); 


by_num_total_outputs—Insert(new_component— 
total_outputs(), 
by_num_total_inputs); 


if(by_num_totaLinputs— 
isIndex(new -component—total_inputs())==TRUE) 


leaf_dictionary=(Dictionary *)(Entity *) 
(+by_num_-total_inputs) 
[new_component—total_inputs()}; 


else 
{ 
leaf_dictionary=new Dictionary(OC-string, 
SB_ADT_COMPONENT_OType, 
FALSE, 
EASE); 


by_num_totalinputs—Insert(new_component — 
total inputs(), 
leaf_dictionary); 


// have to leaf dictionary so now insert the component into it 


leaf_dictionary —Insert(new_component—component_name(), 
hew_component); 


by_num_adts— put Object(); 
by_num_operators— putObject():; 
by_num_totalinputs—putObject(); 
by_num_generics—putObject(); 
by_num_total_out puts—putObject(): 
leaf_dictionary —putObject():: 


return return_flag: 
he 


void SB ADT_COMPONENT_LIBRARY::delete.component(SB_A DT _-COMPONENT 


+the_component) 


{ 


Dictionary *by_num_adts; 
Dictionary *by_num_operators; 





Dictionary *by_num_total_inputs; 
Dictionary *by_num_generics; 
Dictionary *by_num_total_outputs; 
Dictionary *leaf_dictionary; 


adt_component_dictionary()—Remove(the.component—component_name()); 


adt_component_dictionary()— Dictionary ::putObject(); 


by_num_adts=main_library(); 
// now find the dictionary for adt_operators 


if( by_num_adts—isIndex(the-component—num_adts())) 
{ 
by_num_operators=(Dictionary *)(Entity *)(*by_num_adts) 
[the -component—numi_adts()}]; 
// have correct by_num_operator dictionary so get the 
// generic types dict. 


if( by_num_operators—isIndex(the-component— 
num_adt-_operators())) 


by_num_generics=(Dictionary *)(Entity *) 
(xby num_operators) 
(the-component— 
num_adt_operators( )]; 


// got the generics dictionary so get the total base 
// types dictionary 


if( by_num_generics—isIndex(the-component— 
num-generic.types())==TRUE) 
{ 


by_num_total_outputs=(Dictionary *)(Entity *) 
(«by num_generics) 
[the-component—num-generic_types()]; 


if( by_num_totaLoutputs— 
isIndex(the_-component—total_outputs())==TRUE) 
{ 
by_num_total_inputs=(Dictionary *)(Entity *) 
(*by_num_total_outputs) 
[the-component—total_outputs()]; 


if( by_num_totalinputs— 
isIndex(the-component—total_inputs())==TRUE) 


{ 


leaf_dictionarv=(Dictionary *)(Entity *) 
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(*by_num_total_inputs) 
[the _component—total_inputs()]; 


// have to leaf dictionary 


leaf_dictionary— Remove(the-component—component_name()); 
leaf_dictionary—putObject(); 
if(leaf_dictionary—Cardinality()==0) 
{ 
by_num_total_inputs— 
Remove(the-component—total_inputs()); 
by_num-total_inputs— put Object(); 
leaf_dictionary—deleteOb ject(TRUE); 


if( by_num_totalinputs—Cardinality()==0) 
{ 
by_num_total_outputs— 
Remove(the-component—total_outputs()); 
by_num_total_outputs—putObject(); 
by_num_total_inputs—deleteObject(TRUE); 


if( by_num_totaLoutputs—Cardinality()==0) 
{ 
by_num_generics— 
Remove(the.component—num_-generic_types()); 
by-num_generics— putObject(); 
by_num_total_outputs—deleteObject(TRUE); 


if( by_num_generics— Cardinality()==0) 
by_num_operators— 
Remove(the.component—num_adt_operators()); 
by_num_operators—putObject(); 
by_num_generics—deleteObject(); 


if( by_num_operators—Cardinality()==0) 
{ 
by_num_adts— 
Remove(the-component—num_adts()); 
by_num_adts—putObject(); 
by_num_operators—deleteObject(); 
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ts 
SB_COMPONENT_DICTIONARY +*SB-ADT_COMPONENT_LIBRARY::query( 
SB_ADT_COMPONENT 


+query_component ) 


{ 


Dictionary *by_num_adts; 
Dictionary *by_num_operators; 
Dictionary *by_num_total_imputs; 
Dictionary *by_num_genertics; 
Dictionary *by_num_total_outputs: 
Dictionary *leaf_dictionary;: 


SB-COMPONENT DICTIONARY »*query result=new SB-COMPONENT DICTIONARY(); 


// in order for a match library must have at least as many adt’s as 
// being requested 


by_num-_adts=main_library(): 


Dictionarylterator next_by_num_adt(by_nunm_adts, 
FALSE, 


queryv_component—num_adts()); 


while(next_by_num_adt.moreData()) 


{ 


by_num_operators=(Dictionary *)(Entity +)next_by_-num_adt(); 
// components must have at least as many operators as the query 


Dictionarylterator next _bynum_operators(by_num_operators, 
FALSE, 


query component—num_adt_operators()); 


while(next -_by_num_operators.moreData({)) 


by_num_generics=(Dictionary *)(Entity *) 
next -by _numi_operators{( ): 
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Dictionarylterator next_by_num_generics(by_num_-generics, 
FALSE, 


query-component—num_unrecognized_ty 


while(next_by_num_generics.moreData()) 


{ 


by_num_total_outputs=(Dictionary +*)(Entity *) 
next _by_num_generics(); 


Dictionarylterator next_by num_total_outputs(by_num-_total_outputs, 
FALSE, 


query-component—total_outpul 


while(next_by_num_total_out puts. moreData()) 


{ 


by_num_totalinputs=(Dictionary *)(Entity *) 
next_by num_total_outputs(); 


Dictionarylterator next_by num-total_inputs(by_num_totaLinputs, 
FALSE, 
query_component—total_inp 


while(next_by_num_totalinputs.moreData()) 


leaf_dictionary=(Dictionary +*)(Entity *) 
next_by num_total_inputs(); 


Dictionarylterator next.component(leaf_dictionary); 
while(next component.moreData()) | 
{ | 
SB_ADT_COMPONENT «the-component= 
(SB_ADT_COMPONENT +)(Entity +)next-component(); 
if( query_component—filter(the.component)==TRUE) 


query _result—add(the-component); 


// add code here for semantic matching iuterface 


return query_result; 
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he 


void SB_ADT_COMPONENT_LIBRARY::list(ofstream& outstream) 
{ 


adt_component_dictionary()—printOn(outstream); 


hs 
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# include ”"sball.hxx” 


# include “sbextern.h’ 


SB_ADT_OPERATOR::SB_ADT_-OPERATOR(APL #theAPL) : 
SB_OPERATOR(theAPL) 


{ 
}; 


5SB-ADT_OPERATOR::SB_ADT_OPERAT OR (char +#id) 
SB-OPERATOR (id) 


i 
He 
void SB_ADT_OPERATOR:: Destroy( Boolean aborted) 


SB-OPERATOR:: Destroy(aborted): 
}; 


void SB_ADT_OPERATOR::deleteObject(Boolean deallocate) 


SB-OPERATOR::deleteObject(deallocate); 
Hh 


void SB_ADT_OPERATOR::putObject(Boolean deallocate) 


SB-OPERATOR::put Object(deallocate); 
He 


Type #SB_-ADT_OPERATOR::get Direct Type( ) 


{ 
return SB_ADT_OPERATOR_OType; 
}; 


Boolean SB_ADT_OPERATOR::process ty peinfo(SBADT-COMPONENT «adt) 
{ 


// process types by checking local generic then adt.adt usage then 
// adt.generic usage before making it unrecognized. This will update 
// the adt usage dictionaries as well 


// update all usage dictionarytes for inputs and outputs 


// 


// first go through all of the inputs 
Dictionarylterator next input=input_attributes()—iditerator(); 
whiule(next input.moreData()) 


SBID_-DECL «this-decl=(SB-ID-DECL *)(Entity *)next input(); 


SB-_TYPE_NAME #this_typename=this_decl—typename(); 
// first see if this id_decl type is a generic 
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if( generic_usage()—update(this_type name)==FALSE) 
// was not a generic type check the ADT generic list 
if(adt —generic_usage()—update(this_type_name)==FALSE) 


// was not an adt generic so check the adt list 
if(adt —adt_usage( )—update(this_typename)==FALSE) 


{ 


// was not an adt adt so put at in ats local list 


// based on whether or not it 1s recognized 
if( this_type-name—recognized()==FALSE) 
{ 
// was unrecognized so try to update 
// the unrecogmed hst or add it to 
y alice fist 
if(unrecognized _type_usage()— 
update(this type name)==FALSE) 
{ 
// not yet in list so add il 
unrecognized type_usage()— 
add_type(this_type name—id(), 
this_typename); 
// now update it for being used once 
unrecognized type_usage()— 
update(this_tvypename); 
Bs 


else 


{ 


// this type name is recognized so update 
// or add it 
if(recognized_t vpe_usage()— 
update(this type name)==FALSE) 
{ 
// not yet in list so add it 
recognized _type_usage()— 
add_type(this_tvpe name—id(), 
this.typename); 
// now update it for being used once 
recognized type_usage()— 
update(this_typename); 
i 


i; 
he 
te 


DictionaryIterator next_output=output_attributes()—1d iterator(); 
while(next_output.moreData()) 


SB-ID_DECL *this.decl=(SBID_DECL *)(Entity *)next-output(); 
SB-_TYPE_NAME #this.type-name=this_decl—typename(); 


// first see if this id_decl type 1s a generic 
if( generic_usage()—update(this_type name)==FALSE) 


{ 


// was not a generic type check the ADT generic list 
if(adt —generic_usage()—-update(this_type name)==FALSE) 


// was not an adt generic so check the adt list 
if(adt—adt_usage()—update(this_type.name)==FALSE) 


{ 


// was not an adt adt 
// so put rt im ats local hst 
// based on whether or not it 1s recognized 
if(this_ty pe_namie—recognized()==FALSE) 
{ 
// was unrecognized so try to update 
// the unrecognized list or add it to 
// the lst 
if( unrecognized_type_usage()— 
update(this type name)==FALSE) 


// not yet in hst so add it 
unrecognized _type_usage()— 
add_ty pe(this_type name—id(), 
this_typename); 
// now update it for being used once 
unrecognized type_usage()— 
update(this_type_name); 


}; 
// now update the adt lst as well 


if(adt —unrecognized_type_usage()— 
update(this_type name)==FALSE) 
{ 
// not yet in list so add it 
adt— unrecognized _type_usage()— 
add_type(this.type name—id(), 
this_typename); 
// now update it for being used once 
adt— unrecognized _type-usage()— 
update(this_typename); 


136 


else 
{ 
// this type name is recognized so update 
// or add it 
if(recognized_type_usage()— 
update(this_typename)==FALSE) 


// not yet in list so add it 
recognized type_usage()—> 
add_type(thistypename—id(), 
this_typename); 
// now update for being used onece 
recognized type_usage()— 
update(this_type_name); 
}; 
// now update the adt usage list 
if(adt —recognized_type_usage()— 
update(this_typename)==FALSE) 
{ 
// not yet in list so add it 
adt—recognized_type_usage()— 
add_type(thistype_name—id(), 
this_typename); 
// now update for being used onece 
adt—recognized_type_usage()— 
update(this_typename); 


+ 
he 
return TRUE: 


ie 


#include "sball.hxx” 


# include "sbextern.h 






SB_ADT-OPERATOR-_DICTIONARY::SB_ADT_-OPERATOR_DICTIONARY(APL *theAPL) 
Dictionary(theA PL) 


i 


SB-ADT-OPERATOR_DICTIONARY::SB_-ADT_OPERATOR_DICTIONARY() : Dictionary 
(OC integer, // key 
SB_ADT_OPE 
TRUG 
TRUE) 
{ 
}; 


void SB_ADT_OPERATOR_DICTIONARY::Destroy(Boolean aborted) 
{ 


Dictionarylterator next_operator(thius); 
while(next_operator.moreData()) 


((SBADT_OPERATOR +*)(Entity *)next_operator())— Destroy(aborted); 
i 


Dictionary::Destroy(aborted): 
J 


void SB_ADT_OPERATOR_DICTIONARY::deleteObject(Boolean deallocate) 
{ 


Dictionarylterator next_operator(this); 
while(next_operator.moreData()) 


{ 
((SBADT_OPERATOR +*)(Entity *)next_operator())—deleteObject( FALSE); 


J; 
Dictionary::deleteObject(deallocate); 
He 


void SB_ADT_OPERATOR_DICTIONARY::putObject( Boolean deallocate) 
{ 


Dictionarylterator next_operator(this); 
while(next_operator.moreData()) 


((SBADT_OPERATOR +*)(Entity *)next operator())—putObject(deallocate); 
Ib 


Dictionary::put Object(deallocate); 


ie 


Type «SB_ADT.OPERATOR-DICTIONARY ::get DirectType() 


return SB_ADT_OPERATOR_DICTIONARY_OType; 
1 


void SB-ADT_OPERATOR_DICTIONARY::add(SB_ADT-OPERATOR <op) 
{ 


Insert (op—num_inputs(),op); 


ii 
void SB_ADT_OPERATOR_DICTIONARY::append(SB_ADT_-OPERATOR_DICTIONARY 


«new _dict ) 


{ 


// get an iterator for the dictionary then insert each operator into 
// the dictionary. Finally delete the input dictionary 


Dictionarylterator next_operator=new _dict—iterator(); 
while(next_operator.more Data()) 


SB_ADT_OPERATOR «the_operator= 
(SB_ADT_OPERATOR «)(Entity *)nextoperator(); 
this—add(the-operator): 
i 
next_operator. Reset(); 
// destroy the dictionary new_dict bat not its members 
new _dict— Dictionary::Destroy(FALSE): 


ie 


void SB_ADT_OPERATOR_DICTIONARY ::printOn(ofstream& outstream) 
{ 


Dictionarylterator next _operator=iterator(): 


while(next_operator.moreData()) 


((SB_ADT_OPERATOR ¢)(Entity *)next operator())—printOn(outstream); 
ie 


io ADT OPERATOR_DICTIONARY::num() 
{ 


return (int )Cardinality(); // cast to rat (no need for long) 


i 


139 


int SB_ADT_OPERATOR_DICTIONARY::total_-inputs() 
{ 


int total=0; 
Dictionarylterator next_operator=iterator(); 


while(next_operator.moreData()) 


{ 


total=total + 
((SB_ADT_OPERATOR *)(Entity *)next-operator())—numinputs(); 
i 


return total; 


is 


int SB ADT_OPERATOR-_DICTIONARY::total_outputs() 
{ 


lilt total), 
DictionarylIterator next_operator=iterator(); 


while(next_operator.nioreData()) 


{ 


total=total + 
((SB_LOPERATOR +#)(Entity *)next_operator())—num_outputs(); 
ys 


return total: 


ys 


Dictionarylterator SB_ADT.OPERATOR_DICTIONARY ::iterator() 
{ 


return Dictionarylterator((Dictionary *)this); 


i 
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weanciude ’sball.hxx 


# include "sbextern.h” 


SB_COMPONENT::SB-COMPONENT(APL #theAPL) : Object(theAPL) 


{ 
ie 


SB-_COMPONENT::SB-COMPONENT(char +id) : Object() 
{ 


the-component_name=new char{strlen(id)+1]; 
strcpy(the_component _name,id); 


SB_KEYWORD_DICTIONARY «*new_keyword-dictionary=new 
SB_LKEYWORD_DICTIONARY(); 


the_key word _dictionary =new key word -dictionary—findTRef(); 


SB-_TEXT_OBJECT *new-psdl_text=new SB_TEXT OBJECT(); 
the_psdl_text=new _psdl!_text—findTRef(); 


SB_TEXT-OBJECT *newimp-spec-_text=new SB.-TEXT OBJECT(); 
the imp-_spec_text=new imp-_spec_text—findT Ref(); 


SB_TEXT_OBJECT *new imp_body-text=new SB-TEXT_OBJECT(); 
theamp_body_text=new imp_body_text —findT Ref(); 


SB-_TEXT_OBJECT *new informal_description=new SB_TEXT-OBJECT(); 
the informal_description=new-_informaldescription—findT Ref(); 


SB_TEXT_OBJECT *new-formal_description=new SB-TEXT_OBJECT(); 
the formal_description=new_formal_description—findTRef(); 


SB_TEXT_OBJECT #new norm _formal_description=new SB-_TEXT_OBJECT(); 


the_norm_formal_description=new_norm_formaL description—findT Ref(); 


SB_TYPE_USAGE_DICTIONARY #new_recognized type-usage= 
new SB_TYPE_USAGE_DICTIONARY(); 


the_recognized type usage=new recognized type usage—findT Ref(); 


SB_TYPE_-USAGE_DICTIONARY *new-_unrecognized type usage= 
new SB_TYPE_-USAGE_DICTIONARY‘(); 
the-unrecognized type usage=new amrecognized type usage—findTRef(); 


SB-TYPE_USAGE_DICTIONARY *new-generic_ usage=new 
peel yPE_USAGE_DICTIONARY(): 


the_generic_usage=new _generic t1sage—findT Ref(); 
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ie 


void SB_-COMPONENT::Destroy( Boolean aborted) 


{ 


he 


psdl_text()— Destroy(aborted); 

imp-spec-_text()— Destroy(aborted); 
imp_body-text()— Destroy(aborted); 
informal_description()— Destroy(aborted); 
formal]_description()— Destroy (aborted); 
norm-_formal_description()— Destroy (aborted); 
recognized ty pe_usage()— Destroy(aborted); 
unrecognized _ty pe _-usage()— Destroy(aborted); 
keyword_dictionary()— Destroy(aborted); 
generic_usage()— Destroy(aborted); 


delete the-component_name; 
delete the_keyword -dictionary: 
delete the_psdl_text; 

delete the imp-spec_text; 

delete the imp_body_text; 

delete theinformal_description; 
delete the_formal_description; 
delete the_norm_formaLdescription; 
delete the_recognized ty pe-usage; 
delete the_unrecognized_type_usage: 
delete the_generic_usage; 


Object::Destroy (aborted); 


void SB_COMPONENT::deleteObject( Boolean deallocate) 


{ 


hs 


psdl_text()—deleteObject( FALSE); 
imp-spec.text()—deleteObject( FALSE); 
imp_body-_text()—deleteObject( FALSE); 
informal_description()—deleteObject(FALSE); 
formal_description()—deleteObject( FALSE); 
norm_formaldescription()—deleteObject(FALSE); 
recognized ty pe_usage( )—deleteObject(FALSE); 
unrecognized _ty pe_usage()—deleteObject( FALSE); 
key word _dictionary()—deleteObject( FALSE); 
generic_usage()—deleteObject(FALSE); 
Object::deleteObject(deallocate): 


void SB_COMPONENT::putObject(Boolean deallocate) 


psd]_text()— put Object(deallocate); 
imp-spec_text()—putObject(deallocate); 
imp_body_text()—putObject(deallocate); 
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informal_description()—putObject(deallocate); 
formal_description()—putObject(deallocate); 
norm_formal description()—putObject(deallocate); 
recognized _ty pe_usage( )—putObject(deallocate); 
unrecognized type_usage()—putObject(deallocate); 
keyword-_dictionary()—putObject(deallocate); 
generic_usage()— putObject(deallocate); 
Object::putObject(deallocate); 


SBKEYWORD-_DICTIONARY +#SB-COMPONENT:: keyword -dictionary() 


return ((SBLKEYWORD_DICTIONARY «)(the_-keyword_dictionary—Binding())); 
ie 


pete XT OBJECT «SB-COMPONENT::psdl_text() 


return((SB_TEXT_OBJECT +)(the_psdl_text— Binding())); 


SB.TEXT. OBJECT #«SB_COMPONENT::imp-spec_text() 


{ 
return((SB_TEXT_OBJECT +)(theamp_spec_text—Binding())); 
i 


SB_TEXT_OBJECT *5B-COMPONENT::imp_body_text() 


{ 
return((SB_TEX T_OBJECT +)(theimp_body_text— Binding())); 
}; 


SB-TEXT OBJECT *SB-COMPONENT::informal_description() 


{ 
return((SB_TEXT_OBJECT +)(theinformal_description—Binding())); 
is 


SB_TEXT OBJECT *5B-COMPONENT::formal_description() 


return((SB-TEXT_OBJECT +)(theformal_description— Binding())); 
}; 


SB_-TEXT_-OBJECT *SB-COMPONENT::norm_formal description() 
return((SB_-TEXT_OBJECT +*)(themnorm_formal_description— 
Binding())); 
}; 


SB_TYPE_USAGE_DICTIONARY* SB_COMPONENT::recognized type -usage() 


{ 
return (SB_TYPE-USAGE_DICTIONARY<) 
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the recognized ty pe usage— Binding(): 


i 


SB_TYPE_USAGE_DICTIONARY* SB-COMPONENT:: unrecognized type usage() 


{ 
return (SB_TYPE_USAGE_DICTIONARY*) 


the-unrecognized type usage— Binding(); 


SB._TYPE_USAGE_DICTIONARY« SB.COMPONENT::generic_usage() 


{ 
return (SB-TYPE-USAGE_DICTIONARYs)the-generic usage— Binding(); 
i 


Boolean SB-COM PONENT ::add_keyword(char *keyword) 


return keyword _dictionary()—add(key word); 


He 


mnt SB_COMPONENT::num_unrecognized_types() 


{ 


return int(unrecognized_type_usage()—numi()); 


ie 


int SB_COMPONENT::total_types() 
{ 


return num_unrecognized_types()+ 
recognized type usage()—num(); 
Ie 


void SB_COMPONENT::insert_generics( SB_-TYPE_USAGE DICTIONARY «*new_generic_usage) 
{ 


if(new_generic_usageZNULL) 


{ 
SB-COMPONENT:: generic usage()— append(new -generic 1sage); 
ip 


Me 


char +*SB_COMPONENT::component_name( ) 
{ 


return the component_name: 
ie 
void SB_COMPONENT::add_text(ifstream& psdl, ifstream& spec, ifstream& body) 
{ 


psdl_text()—append(psdl); 
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# include ’sbali_-hxx 
# include ’sbextern.h 


SB-COMPONENT DICTIONARY::SB-COMPONENT DICTIONARY(APL «theAPL) : 
Dictionary(theA PL) 


{ 
ie 


SB-COMPONENT DICTIONARY::SB.-COMPONENT DICTIONARY() : Dictionary 
(OC.steing, // KEY 


SB_COMPONENT OType 
TRUE, 
FALSE) 
{ 


te 
Type +SB_-COMPONENT_DICTIONARY:::get Direct Type() 


{ 
return SB_COMPONENT_DICTIONARY_OType; 
ie 


void SB_-COMPONENT_DICTIONARY::Destroy(Boolean aborted) 
{ 
// first destroy all of the references in the dictionary 
DictionarylIterator next_component(this); 


while(next-component.moreData()) 


((SB.COMPONENT +*)(Entity *)next component())— Destroy(aborted); 
he 


Dictionary::Destroy(aborted); 
he 
void SB_-COMPONENT-_DICTIONARY::deleteObject( Boolean deallocate) 
// first delete all of the references in the dictionary 

Dictionarylterator next_component(this); 


while(next-component.moreData()) 


((SB-COMPONENT +*)(Entity *)next component())—deleteObject(FALSE); 
}; 


Dictionary::deleteObject(deallocate); 
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iF 

void SB_COMPONENT_DICTIONARY::putObject( Boolean deallocate) 
// first put all of the references in the dictionary 
Dictionarylterator next_component(this); 
while(next_component.moreData()) 


((SB-COMPONENT +*)(Entity «)next_component())—putObject(deallocate); 
}; 


Dictionary::putObject(deallocate); 


ie 


Boolean SB_COMPONENT_DICTIONARY::add(SB-COMPONENT «*new-component) 
{ 


Boolean return_flag: 
if( Dictionary::isIndex(new_component —component_name())==FALSE) 
/[/ keyword is not yet iu the dictionary so insert it 


Dictionary::Insert(new -component—component_name(),new_component); 


fFetulenelag— TRUE: 
else 


{ 
return flag=FALSE; 
& 


return return_flag: 


le 


SB_-COMPONENT *«SBCOMPONENT DICTIONARY::query(char «name) 


{ 
SB_COMPONENT «return-component=NULL; 


if( Dictionary::isIndex(name)==T RUE) 


{ 
return_component=(SB-COMPONENT +*)(Entity*)({+*this)[namel]; 


i 


return return_component; 
Ps 
void SB-COMPONENT_DICTIONARY::printOn(ofstream& outstream) 
{ 
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Dictionarylterator next-component= 
Dictionarylterator(this); 


while(next-component.moreData()) 
{ 
int i; 
SB_-COMPONENT +#the-component=(SB-COMPONENT +)(Entity *)next -component(); 
outstream < the-component—componentname(); 
for(i=strlen(the-component—component_name());i < DEFAULT_NAME_SIZE; i++) 
{ 
outstream <" "; 
}3 
outstream < “ "; 
char +informaldesc=(the-component—informaL description())—text(); 
I=0; 
while(informaLdesc{i]ZNULL && informaLdesc[i]#’\n’) 
{ 
outstream < informaLdesc{i]: 
Lae 
ie 
outstream < "\n"; 
ie 
i. 
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# include ’sball.hxx™ 
# include ’sbextern.h’” 


SB_EXCEPTION DICTIONARY::SB_EXCEPTION DICTIONARY(APL #theAPL) : 
Dictionary(theAPL) 


{ 
i 


void SB_EXCEPTION _DICTIONARY::Destroy(Boolean aborted) 
{ 


Dictionarylterator next_exception(this); 
while(next_exception.moreData()) 


delete (char *)next_exception(); 


ie 
Dictionary::Destroy(aborted); 


void SB-EXCEPTION_DICTIONARY::deleteObject(Boolean deallocate) 
{ 


Dictionary::deleteObject(deallocate); 
}; 


void SB_EXCEPTION_DICTIONARY::putObject(Boolean deallocate) 
{ 


Dictionary::putObject(deallocate); 
ie 
Type #SB_EXCEPTION _DICTIONARY:: get Direct Ty pe() 
return SB_EXCEPTION DICTIONARY _OType:; 


} 


SB_EXCEPTION DICTIONARY: :SB_EXCEPTION DICTIONARY() : Dictionary (OC.string, 
PO EY 


OC.string, 
PRUE. 
FALSE) 

{ 

}; 


Boolean SBLEXCEPTION DICTIONARY ::add(char *exceptionid) 
{ 
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Boolean return_flag; 

if( Dictionary::isIndex(exceptionid)==FALSE) 
// erception.id is not yet in the dictionary so wsert at 
Dictionary::Insert(exceptionid,""); 


return flag=TRUE; 
} 


else 


{ 
return _flag=FALSE; 
lf 


return return_flag: 


Boolean SB-EXCEPTION DICTIONARY: :append(SB EXCEPTION DICTIONARY 
+dictionary) 


{ 
Boolean return_flag=TRUE; 


Dictionarylterator next 1d=dictionary—iterator(); 
while(next_id.moreData() C& return_flag==TRUE) 
if(add((char *)next_id())==FALSE) 


{ 
return _flag=FALSE: 
Ne 


1 
dictionary —Destroy(FALSE); // delete the object and deallocate 


return return flag: 


Ne 


void SB_-EXCEPTION DICTIONARY ::printOn(ofstream& outstream) 
{ 


Dictionarylterator next_exception=iterator(): 


while(next_exception.moreData()) 


{ 


outstream < (char *)next_exception() << "\n"; 
}: 
le 





Dictionarylterator SBLEXCEPTION DICTIONARY ::iterator() 
// use tagiterate since tag is the data 


return Dictionarylterator(this, TRUE); 


ie 


# include “sball .hxx 
# include’ sbextern.h” 


SB_ID_DECL::SB_ID_.DECL(APL *theAPL) : Object(theAPL) 


{ 
ie 


SBIDDECL::SB.ID.DECL(char #new-thed, 
SB-_TYPE_NAME *new_typename): 
Object() 


the id=new char(strlen(new_theid)+1]; 
strepy(the id,newtheid); 


the_type name=new-_tvpename—findTRef(); 


ie 
void SB_ID_DECL::Destroy( Boolean aborted) 
if(the.idANULL) 
{ 


delete thed:; 


be 


type _name()— Destroy(aborted): 


Object::Destroy(aborted):; 


ie 


void SB_ID_DECL::deleteObject( Boolean deallocate) 
{ 


typename()—deleteObject(FALSE); 
Object::deleteObject(deallocate); 
is 


void SB_ID_DECL::putObject(Boolean deallocate) 
{ 


type_naime()—put Object(deallocate); 


Object::put Object(deallocate): 
i 


SB_TYPE_-NAME +*SB_ID_DECL::type_name() 


return ((SB-TYPE_NAME +*) (the.type name— Binding())); 


3 


Type *SB_ID_DECL::get Direct Ty pe() 


return SBID_DECL_OType: 
5; 


void SB_-ID_DECL::printOn(ofstream& outstream) 
{ 


outstream <theid<" : "; 
typename()—printOn(outstream); 


he 


char +SB_ID_DECL::id() 


return the_id; 


i 


# include ”’sball.hxx” 
# include ’sbextern.h’” 


SBID_DECL_DICTIONARY::SB_ID-DECL_DICTIONARY(APL *theAPL) : Object(theA PL) 


{ 
ie 


SB_ID_DECL_DICTIONARY::SB_ID-DECL_DICTIONARY() : Object() 
{ 


Dictionary *new_dictionary_by_type= new Dictionary(SB_TYPE_NAME_OType, 
SBID.DECL-_OType, 
TRUE, 
TRUE); 


the_dictionary_by_ty pe=new _dictionary_by .type—findT Ref(); 


Dictionary *new_dictionary_by_.id= new Dictionary(OC-string, 
SBID.DECL_OType, 
TRUE, 
FALSE); 


the_dictionary_by 1d=new-dictionary_by id—findTRef(); 


List *new_id_declaration_list=uew List(SBID-DECL_OType); 


theid_declaration_list=new id_declaration_list—findT Ref(); 


le 


void SB_-ID.DECL_DICTIONARY::Destroy(Boolean aborted) 
{ 


ListIterator next id_decl(id_declarationist()); 
while(next_id_decl.moreData()) 


((SBID_DECL *)(Entity *)next id_decl())—Destroy(aborted); 
ie 
dictionary_by_type()— Destroy(aborted); 
dictionary_by_id()— Destroy(aborted); 
id_declaration_list()— Destroy(aborted); 


delete the_dictionary_by type; 





delete the_dictionary_by id; 
delete the-id_declaration_list; 


Object::Destroy(aborted); 


is 
void SB_ID.DECL_DICTIONARY::deleteObject( Boolean deallocate) 


ListIterator next id_decl(id_declaration ist()); 
while(next_id_decl.moreData()) 


((SBID_DECL *)(Entity *)next id-decl())—deleteObject( FALSE); 
}; 
dictionary_by-_type()—deleteObject( FALSE); 


dictionary _by_id()—-deleteObject( FALSE); 
id_declaration_list()—deleteObject( FALSE); 


Object::deleteObject(deallocate); 


void SBID_DECL_DICTIONARY::putObject( Boolean deallocate) 
{ 


ListIterator nextid_decl(id_declaration_list()); 
while(next_id_decl.moreData()) 


((SBID_DECL *)(Entity *)next id_decl())—putObject(deallocate); 
}; 


dictionary_by_type()—putObject(deallocate); 
dictionary_by_id()—putObject(ceallocate): 
id_declaration_list()—putObject(deallocate); 
Object::putObject(deallocate); 

Ir 

Type *SB_ID-DECL_DICTIONARY::get DirectType() 


return SBID_DECL_DICTIONARY_OType:; 
ie 


Dictionary *SBID-DECL_DICTIONARY::dictionary_by_type() 


return (Dictionary *)(the_dictionary.by_type— Binding()); 


Dictionary *SBID_DECL_DICTIONARY::dictionary_by-id() 
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{ 
return (Dictionary +*)(the-dictionary_by_id—Binding()); 


} 


List *SBID-DECL_DICTIONARY::id_declaration_list() 
{ 
return (List *)(the_id_declaration_list— Binding()); 
}; 
Boolean SB_.ID-DECL_DICTIONARY::add_decl(SBID_DECL +decl) 
{ 


Boolean return_flag; 


if(dictionary_by-id()—isIndex(decl—id())==FALSE) 
// 1DNOT VEU Se 


dictionary by _ty pe()—Insert(decl—type_name(),decl); 


dictionary _by_id()—Insert(decl—id(),decl); 


id_declaration_list()—Insert(decl); 


return flag=TRUE; 
} 


else 


// id already in use so can not insert 
return _flag=FALSE; 


hi 


return return _flag; 


i 
void SB_ID_.DECL_DICTIONARY::remove_decl(SB_ID_DECL +*decl) 
dictionary_by_type()— Remove(decl—type_name(),decl); 


dictionary_by_id()—Remove(decl—id(),decl); 


id_declaration_list()— Remove(id_declaration_list()—Index(decl)); 


Boolean SB_ID-DECL_DICTIONARY::add_decl(char +*id,SB_TYPE.NAME *type_name) 
{ 


Boolean return_flag; 


if(dictionary_by_id()—isIndex(id)==FALSE) 
WeDo NOT YET USED 
// create new SB_LID.DECL 
SB.ID_DECL *«decl=new SB_ID_-DECL(id,typename); 


dictionary_by _ty pe()—Insert(typename,decl); 


dictionary _by_id()—Insert(id,decl); 


id_declaration_list()—Insert(dec1); 


return _flag=TRUE; 
} 


else 


// id already in use so can not insert 


return _flag=FALSE; 
1 


return return_flag; 


le 


Boolean SBID-DECL-_DICTIONARY::append(SB_ID-DECL._DICTIONARY dictionary) 
{ 


Boolean return_flag=TRUE; 
ListIterator next id=dictionary —orderiterator(); 


while(nextid.moreData() && return_flag==TRUE) 


SBID-DECL +#this_decl=(SBID_DECL *)(Entity +)nextid(); 
return flag=add_-decl( this-decl ); 


} 


/* nert_id. Reset(); 
while(next_id.moreData()) 


SBID.DECL +*this_.decl=(SB_ID.DECL + )(Entaty + )nezt2d{/); 
dictionary->remove_decl(this_decl); 


}; 
dictionary-> Destroy(FALSE);*/ 


return return_flag; 


i 


void SB_ID.-.DECL_DICTIONARY::printOn(ofstream& outstream) 
{ 


ListIterator next_decl=order iterator(); 
if(next_decl.moreData()) 


((SBID.DECL *)(Entity *) next_decl())—printOn(outstream); 


while(next_decl.moreData()) 


{ 


Outstreame< "7 \n.” 
((SBID.DECL *)(Entity *) next_decl())—printOn(outstream); 


te 


int SBID_DECL_DICTIONARY::num() 
{ 


return (int)(dictionary_by_type()—Cardinality()); 


i 


DictionaryIterator SB_ID_DECL_DICTIONARY::id_iterator() 
{ 


return Dictionarylterator(dictionary_byid()); 


i 


Dictionarylterator SB_ID-DECL_DICTIONARY::typeiterator() 
{ 


return Dictionarylterator(dictionary_by_type()); 


i 


ListIterator SBID.DECL_DICTIONARY::orderiterator() 
{ 


return ListIterator(id_declaration_list()); 


fe 


SBID_DECL *SBID_DECL_DICTIONARY::query_id(char «query_name) 
{ 


SBID_DECL «return_value=N ULL; 
if(dictionary_by_id()—isIndex(query_name)) 


return_value=(SBID_DECL *)(Entity *)dictionary_byid()—- 
get Entity Element(query_name); 
}; 


return return_value; 


ie 


# include ”sball.hxx” 
# include ’sbextern.h” 


SB_KEYWORD-DICTIONARY::SB_KEYWORD_DICTIONARY(APL #theAPL) : 
Dictionary(theA PL) 

{ 

}; 


SB_KEYWORD-_DICTIONARY::SB_KEYWORD-_DICTIONARY() : Dictionary (OC-string, // 
EY 





OC.string, 
TRUE 
FALSE) 

{ 

Ii 


Type *SB_KEYWORD_DICTIONARY::get Direct Type() 


return SB_KEYWORD_DICTIONARY_OType; 
ie 


void SB_KEYWORD_DICTION ARY:: Destroy( Boolean aborted) 
{ 
Dictionary::Destroy(aborted); 
Ie 
void SB_KEYWORD_DICTIONARY::deleteObject( Boolean deallocate) 


Dictionary::deleteObject(deallocate); 


le 
void SB_KEYWORD_DICTIONARY::putObject( Boolean deallocate) 


{ 
Dictionary::putObject(deallocate); 


js 
Boolean SB_-KEYWORD_DICTIONARY::add(char *keyword) 
Boolean return_flag; 
if( Dictionary: :isIndex(keyword)==FALSE) 
// keyword is not yet in the dictionary so insert it 
Dictionary::Insert(keyword."'"'); 


return flag=T RUE; 
} 


else 


{ 
return _flag=FALSE; 
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PB 
return return_flag; 
}; 
void SB_KEYWORD_DICTIONARY::printOn(ofstream& outstream) 
Dictionarylterator next _keyword=iterator(); 
while(next_key word.moreData()) 


{ 


outstream < (char *)next_keyword() < "\n"; 
i 
Is 
Dictionarylterator SB_-KEYWORD_DICTIONARY::iterator() 


// use tagiterate since tag is the data 


return Dictionarylterator(this, TRUE); 


js; 
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#include ”sball.hxx” 
#include ’sbextern.h” 


SB_KEYWORD_LIBRARY::SB_KEYWORD_LIBRARY(APL *theAPL) : Dictionary(theA PL) 
{ 
i 


SB_KEYWORD_LIBRARY::SB_KEYWORD-_LIBRARY() : 
Dictionary(OC-string,SB-COMPONENT DICTIONARY -_OType, TRUE,FALSE) 
{ 


fs 
void SB_KEYWORD-_LIBRARY::query(ifstream& instream, ofstream& outstream) 
char the_key word[256]; 


Dictionary *the_result=uew 


Dictionary(OC-string,OC-integer, FALSE,FALSE); 


while(!instreaim.eof()) 
{ 
instream >> the_keyword; 
instream >> ws; // get the new_line character or eof 
if( this—isIndex(the_key word)==TRUE) 


SB_COMPONENT DICTIONARY «*the-component_dictionary= 
(SB_-COMPONENT DICTIONARY +«) 
this—get Entity Element(the_keyword); 
Dictionarylterator next_component= 
Dictionarylterator(the-component_dictionary ); 
// update the result dictionary 


while(next_component.moreData()) 
{ 
SB_-COMPONENT #the-component=(SB-COMPONENT «) 
(Entity *)next_component(); 
char *the_component_name; 
the.component_name=the_component—component_name(); 


if(the_result— 
isIndex(the_component_name)==TRUE) 


{ 


int new.number= int( 
the _result—getInteger Element(the component name) )- 


the_result — Remove(the-component_name); 
the_result— 


Insert(the_-component _name,new number ); 


else 
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the_result—Insert(the component name,-1); 


// create new dictionary ordered by number of times found 
Dictionary *finalresult=new 


Dictionary(OC_integer,OC-string, TRUE, TRUE); 


Dictionarylterator next_result=Dictionarylterator(the_result ); 
Dictionarylterator next_result _tag=Dictionarylterator(the result, TRUE); 
while(next_tresult.moreData()) 
{ 
char *component=(char *)next_result_tag(); 
int times_used=int(next_result()); 
final_result—Insert(times_used,component); 


}; 
Dictionarylterator next_final_result=Dictionarylterator(final result); 
while(next_final_result.moreData()) 


{ 


char* componentname=(char *)next_final_result(); 

SB_-COMPONENT «the-component=SB_MAIN _LIBRARY—query(component_name); 
// SB_MAIN_LIBRARY IS GLOBAL 

int 1; 

outstream < the-component—component_name(); 
for(i=strlen(the-component—component_name());i < DEFAULT_NAME-_SIZE; i++) 


outstream < " "; 


Mi 


outstream <" ": 
char +informaldesc=(the_component—informal description())—text(); 
(0; 


while(informaL desc[i]JANULL && informal desc[i]#’\n’) 


outstream < informaLdesc[i]; 
i++; 
F 
outstream < "\n"; 
Ks 
the_result— Destroy(); 
final_result— Destroy(); 


}; 

Boolean SB_-KEYWORD-_LIBRARY::add-component(SBL-COMPONENT *new-component) 
SB_KEYWORD_DICTIONARY« keyword Jist=new_component—key word-dictionary(); 
Dictionarylterator next_keyword=keyword list—iterator(); 


while(next_keyword.moreData()) 


char *«the_keyword=(char *)next_keyword(); 
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if(this—isIndex(the_keyword)==TRUE) 


SB-COMPONENT_DICTIONARY 
+the_dictionary=(SB_-COMPONENT DICTIONARY «) 
this—getEntity Element(thekeyword); 
the_dictionary—add(new_component); 
the_dictionary— Dictionary::putObject(); 


j 


else 
{ 
// this is a new keyword so make a new sb_component_dict 
// and add it to the key-word library 
SB_-COMPONENT_DICTIONARY+ new-dictionary=new 
SB.COMPONENT DICTIONARY (); 
new_dictionary—add(new_component); 
new _dictionary— Dictionary::putObject(); 
this—Insert(the-keyword,new_dictionary); 
I 
le 


return TRUE; 
IF 


void SB_KEYWORD_LIBRARY::delete_component(SB-COMPONENT +*the-component) 


SB_KEYWORD_DICTIONARY* keyword list=the.component—key word dictionary (); 
Dictionarylterator next_key word=key word list—iterator(); 
whiule(next_keyword.moreData()) 


char +the_keyword=(char *)next_keyword(); 
if(this—isIndex(the_keyword)==TRUE) 
{ 


SB-COMPONENT DICTIONARY 
«the_dictionary=(SB-COMPONENT DICTIONARY «) 
this—getEntityElement(the keyword); 
the_dictionary—~ Remove(the_component—componentname()); 
the_dictionary—putObject(); 
if(the_dictionary—Cardinality()==0) 


this— Remove(the_key word); 
the_dictionary—deleteObject(TRUE); 


void SB_KEYWORD_LIBRARY:: Destroy( Boolean aborted) 
{ 
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Dictionarylterator next_component-dictionary=iterator(); 
while(next -component-_dictionary.moreData()) 


((SB-COMPONENT-_DICTIONARY *)(Entity *)next component -dictionary())— 
Destroy(aborted); 


Dictionary:: Destroy(aborted); 
‘ 
void SB_KEYWORD_LIBRARY::deleteObject(Boolean deallocate) 
{ 


Dictionarylterator next-component_dictionary=iterator(); 
while(next-component_dictionary.moreData()) 


((SB-COMPONENT DICTIONARY «*)(Entity *)next component -dictionary())— 
deleteObject( FALSE); 


Dictionary::deleteObject(deallocate); 


js 


void SB_KEYWORD-_LIBRARY::putObject(Boolean deallocate) 


{ 
Dictionary::putObject(deallocate); 


}; 


Dictionarylterator SB_KEYWORD_LIBRARY::iterator() 
{ 


6 


void SB_-KEYWORD_LIBRARY::list(ofstream& outstream) 
{ 


return Dictionarylterator(this, TRUE); // return tag iterate 


Dictionarylterator next_keyword=iterator(); 
while(next_key word.moreData()) 


outstream < (char *)next_keyword() < "\n"; 


} 
ie 


# include ”sball.hxx” 
# include ’sbextern.h” 


SB_LIBRARY::SB_LIBRARY(APL *theAPL): Object(theA PL) 


{ 
fe 


SB_LIBRARY::SB_LIBRARY(char «name, char *table) : Object(name) 
{ 


SB-COMPONENT_DICTIONARY *new_-component-_dictionary= 
new SB_-COMPONENT_DICTIONARY(); 


the-component_dictionary= 
new component _dictionary —findTRef(); 


the_recognized_types=NULL; 

update _recognized_ty pes(table); 

SB-OPERATOR-COMPONENT LIBRARY *new_operator_component_ibrary= 
new SB_LOPERATOR_COMPONENT_LIBRARY(); 


the-operator_component_ibrary= 
new operator_-component_ibrary—findTRef(); 


SBADT_COMPONENT_LIBRARY *new_adt-component_hbrary=new 
SB_ADT_COMPONENT_LIBRARY(); 


the_adt_component_hbrary=new_adt_component_hbrary—findTRef(); 


SB_KEYWORD_LIBRARY *new_keyword_library=new 
SB_KEYWORD_LIBRARY(); 


the keyword _hbrary=new-key word Jibrary—findTRef(); 
}; 
SB-_RECOGNIZED_TYPES +SB_LIBRARY::recognized_types() 


return (SBLRECOGNIZED_TYPES +*)(Entity *)the_recognized_ty pes— Binding(); 
ie 


void SB_LIBRARY::update_recognized_types(char +file) 
if(the_recognized_types#NULL) 
{ 


recognized _types()—deleteObject(); 


te 
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} 


SB_RECOGNIZED_TYPES *new-type_matrix=new 
SB_.RECOGNIZED_TYPES (file); 
the_recognized ty pes=new type matrix—findT Ref(); 


void SB_LIBRARY::Destroy(Boolean aborted) 


{ 


I 


operator_component_library()— Destroy(aborted); 
adt_component_library()—Destroy(aborted); 
component_dictionary()— Destroy (aborted); 
recognized types()— Destroy(aborted); 

keyword _library()— Destroy(aborted); 


delete the_adt_component_library; 
delete the_operator_component_library; 
delete the-component_dictionary; 
delete the_keyword library; 

delete the_recognized types; 


Object::Destroy(aborted); 


void SB_LIBRARY::deleteObject( Boolean deallocate) 


{ 


; 


operator.component_library()—deleteObject(FALSE); 
adt_component_library()—deleteObject( FALSE); 
component_dictionary()—deleteObject( FALSE); 
recognized _types()—deleteObject( FALSE); 

keyword _library()—deleteObject( FALSE); 


Object::deleteObject(deallocate); 


void SB_LIBRARY::putObject( Boolean deallocate) 


{ 


operator_component_library()—putObject(deallocate); 
adt_component_library()—putObject(deallocate); 
component_dictionary()—Dictionary::putObject(deallocate); 
recognized _types()—putObject(deallocate); 
keyword_library()—putObject(deallocate); 


Object::putObject(deallocate); 


Type *SB_LIBRARY::get Direct Type() 


lf 


return SB_LIBRARY_OType; 


SB_ADT_COMPONENT LIBRARY *SB_LIBRARY::adt_component_library() 


{ 
return (SB-ADT.COMPONENT-_LIBRARY +) 


(the_adt_component library— Binding()); 


fe 
SB-OPERATOR-COM PONENT -_LIBRARY *SB_LIBRARY::operator-component_library() 


return (SBLOPERATOR-COMPONENT_LIBRARY +) 
(the operator_component Jibrary—Binding()); 


ie 
SB_KEYWORD-_LIBRARY «*«SB_LIBRARY::key word library () 


return (SBLKEYWORD_LIBRARY +*)the_-keyword_ibrary—Binding(); 
he 


Boolean SB_LIBRARY::add(SB_-COMPONENT *new-component) 


{ 
Boolean return_flag=FALSE; 


// first ensure that this component name ts nol already in use 
if(component_dictionary()—add(new_component)==TRUE) 
component_dictionary()—Dictionary::putObject(); 
// name not in use so continue processing 
// add the component to the keyword libraries 


return flag=TRUE; 


key word_library()—-add_com ponent(new_com ponent); 
keyword_library()—putObject(); 


if(new_component— get Direct Type()==SB ADT-COMPONENT_OType) 
{ 


return flag=adt_component_library()— 


add((SB_ADT_COMPONENT *)new_component); 


else 


{ 


return flag=operator_component_ibrary()— 


add((SBLOPERATOR-COMPONENT *)new-component); 
js 


is 


return return_flag;: 





js 
void SB_LIBRARY::delete.component(SB_-COMPONENT +the-component) 


keyword _library()—delete-component(the_component); 
keyword _library()—putObject(); 


if(the_component—get Direct Type()==SB_ADT_COMPONENT OType) 


adt_component_library()— 
delete_component((SB-ADT COMPONENT *)the-component); 


operator_component_library()— 
delete component((SBLOPERATOR-COMPONENT «)the.component); 
i 


component_dictionary()—Remove(the.component—component_name()); 
component.dictionary()—putObject(); 
the.component—deleteObject(TRUE); 


void SB_LIBRARY::component_list(ofstream& outstream) 


adt_component_library()—list(outstream); 
operator_component_library()—list(outstream); 


}; 


SB_-COMPONENT DICTIONARY +#SB_LIBRARY::query(SB-COMPONENT 


*query component) 


SB_-COMPONENT DICTIONARY ¢return_dictionary; 
if( query -component—get Direct Type()==SB_ADT COMPONENT OType) 


return _dictionary=adt_component Jibrary()— 
query((SB_ADT-COMPONENT +*)query.component); 


else 


{ 


return _dictionary=operator component ibrary()— 


query((SBLOPERATOR-COMPONENT *)query_component); 


; 


return return_dictionary; 


i 


SB-COMPONENT +*SB_LIBRARY::query(char *component_name) 
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{ 


return component_dictionary()—query(component_name); 
void SB_LIBRARY::keyword_query(ifstream& instream,ofstream& outstream) 


keyword_library()—query(instream ,outstream); 


Ir 
SB_-COMPONENT DICTIONARY +*SB_LIBRARY::component_dictionary() 


return (SB_-COMPONENT_DICTIONARY +*)(Entity *) 


the-component_dictionary — Binding(); 


void SB_LIBRARY::keyword_list(ofstream& outstream) 


keyword ibrary()—list(outstream ); 


ee 


void SB_LIBRARY::type_list(ofstream& outstream) 
{ 


adt_component_library()—list(outstream ); 


i 


void SB_LIBRARY::operator_list(ofstream& outstream) 


{ 


operator_component_library()—list(outstream); 
ie 
void SB_LIBRARY::query(SB-COMPONENT *query-component,ofstream& outstream) 


SB-COMPONENT DICTIONARY * theresult=query(query component); 


the_result—printOn(outstream); 


iE 
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# include ”sball.hxx” 


# include ”’sbextern.h” 


SBOPERATOR::SB_-OPERATOR(APL #theAPL) : SB-COMPONENT(theA PL) 


{ 
Ba 


SB_-OPERATOR::SB_OPERATOR(char #id) : SB-COMPONENT(id) 
{ 


SBID-DECL_DICTIONARY «*newWJinput-attributes=new SBID-DECL_DICTIONARY(); 


SBID-DECL_DICTIONARY #*new_output_attributes=new SBID-DECL_DICTIONARY(); 


SB_EXCEPTION DICTIONARY «*new_exceptions=new SB_EXCEPTION DICTIONARY; 


the input _attributes=new input attributes—findT Ref(); 
the_output_attributes=new output attributes—findT Ref(); 
the_exceptions=new exceptions—findTRef(); 


states_flag=FALSE; 


SBID-DECL-DICTIONARY *SB-OPERATOR::input_attributes() 


return (SB_ID-.DECL_DICTIONARY +)(the_input_attributes—Binding()): 
he 


SBID-DECL_DICTIONARY *SB_OPERATOR::output-_attributes() 


return (SB_ID-DECL_DICTIONARY *)(the_output_attributes— Binding()); 
js 


Boolean SB-OPERATOR::states( ) 
{ 
return states_flag; 
iF 
SB_EXCEPTION DICTIONARY *SB_OPERATOR::exceptions() 


return (SBLEXCEPTION_DICTIONARY *)(theexceptions—Binding()); 
he 
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Boolean SBLOPERATOR.::add_inputs(SBID-DECL_DICTIONARY +input-_dictionary) 
Boolean return-flag; 
// add new declarations to the declaration list 
return flag=input_attributes()—append(input dictionary); 


return return_flag; 
Ne 
Boolean SB-OPERATOR::add_outputs(SBID_DECL_DICTIONARY *output-dictionary) 
{ 

Boolean return-flag; 


return flag=output attributes()—append(output dictionary); 


return return_flag; 
ie 
void SBLOPERATOR::set states() 


{ 
states flag=TRUE; 


IP 


Boolean SB_LOPERATOR::add_exceptions(SB_EXCEPTION DICTIONARY 
*xexception_dictionary) 


Boolean return_flag; 
return flag=exceptions()—append(exception dictionary); 
return return_flag; 


void SBLOPERATOR::Destroy( Boolean aborted) 
{ 


input_attributes()— Destroy(aborted); 
output_attributes()— Destroy(aborted); 
exceptions()— Destroy(aborted); 
delete the input_attributes; 


delete the_output_attributes; 
delete the_exceptions; 


SB_COMPONENT:: Destroy(aborted); 
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if 


void SB_LOPERATOR::deleteObject( Boolean deallocate) 


{ 


fe 


input_attributes()—deleteObject(FALSE); 
output_attributes()—deleteObject( FALSE); 
exceptions()—deleteObject(FALSE); 


SB_-COMPONENT::deleteObject(deallocate); 


void SB_LOPERATOR::putObject( Boolean deallocate) 


{ 


ie 


input_attributes()—putObject(deallocate); 
output_attributes()—putObject(deallocate); 


exceptions()—putObject(deallocate); 
SB_COMPONENT::putObject(deallocate); 


void SB_LOPERATOR::printOn(ofstream& outstream) 


{ 


outstream < "QUTPUTING INTERFACE FOR OPERATOR "“; 
outstream < this—component_name() < "\n"; 


outstream < "GENERIC ATTRIBUTES\n\n"; 
SB-COMPONENT::generic_usage()—printOn(outstream); 


outstream < "\nINPUT ATTRIBUTES\n\n"; 
input_attributes()—printOn(outstream); 


outstream < '\nOUTPUT ATTRIBUTES\n\n"; 
output_attributes()—printOn(outstream); 


outstream < '\nUNRECOGNIZED TYPES\n\n"; 
unrecognized ty pe_usage()—printOn(outstream); 


outstream < “\ nRECOGNIZED TYPES\n\n"; 
recognized _ty pe_usage( )—printOn(outstreaim); 


outstream < '"\nSTATES\n\n"; 
if(states flag==TRUE) 


outstream < "YES\n"; 


} 
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else 


{ 
outstream < "NO\n"; 


hi 


outstreaam < '"\nEXCEPTIONS\n\n"; 
exceptions()—printOn(outstream); 

outstream < "OQUTPUTING THE PSDL TEXT\n\n"; 

outstreaam < psdl_text()—text() << "\n"; 

outstream < "OQUTPUTING THE INFORMAL DESCRIPTION\n\n"; 
outstream < informaLdescription()—text() < "\n"; 
outstreaam < "OUTPUTING THE FORMAL DESCRIPTION\n\n"; 
outstream < formaldescription()—text() < "\n"; 

outstream < "OUTPUTING THE NORMALIZED FORMAL DESCRIPTION\n\n"; 
outstream < norm_formaLdescription()—text() < "\n"; 
outstream < "OUTPUTING THE ADA SPEC\n\n"; 

outstream < imp-_spec_text()—text() << "\n"; 

outstream < "OQUTPUTING THE ADA BODY\n\n"; 

outstream < imp_body-_text()—text() < "\n"; 


int SB_OPERATOR::num_inputs() 
{ 


return input_attributes()—num(); 
Ie 


int SB_LOPERATOR::num_outputs() 
{ 


return output_attributes()—num(); 


Dictionarylterator SBLOPERATOR::input_iterator() 
{ 


return input_attributes()—typeiterator(); 


ie 


Dictionarylterator SBLCOPERATOR::output-iterator() 
{ 


return output_attributes()—typeuterator(); 


i 


DictionaryIterator SBLOPERATOR::exception iterator() 


{ 


return exceptions()—iterator(); 


ie 
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int SB_LOPERATOR::num-generic_ty pes() 
{ 


// get an iterator for the type_decl list 
// and any spec that ts not a procedure is a generic type 


int count=0; 


Dictionarylterator next id=SB_COMPONENT::generic_usage()— 
type_iditerator(); 


while(nextid.moreData()) 


SB_TYPE_USAGE #the_usage=(SB_TYPE_USAGE*)(Entity *)nextid(); 
SB_TYPE.NAME #*the_type name=the_usage—type name(); 
if(the_type name—type_code()==SB_GENERIC_TYPE) 


count=count+-+; 
}; 
I 
return count; 


ie 


# include ”’sball.hxx” 


# include ”sbextern.h” 


SB_LOPERATOR-COMPONENT::SB_LOPERATOR-COMPONENT(APL +#theAPL) : 
SB-OPERATOR(theAPL) 


{ 
ie 


SB-OPERATOR_COMPONENT::SB-OPERATOR-COMPONENT(char +id) : 
SB_OPERATOR(id) 


{ 
}; 
void SBLOPERATOR_COMPONENT::Destroy( Boolean aborted) 


SB_OPERATOR:: Destroy(aborted); 
ie 


void SB_LOPERATOR_COMPONENT::deleteObject(Boolean deallocate) 


SB_-OPERATOR::deleteObject(deallocate); 
if 


void SBLOPERATOR_COMPONENT::putObject( Boolean deallocate) 


SB_LOPERATOR::putObject(deallocate); 
hi 


Type *SBLOPERATOR.COMPONENT::getDirectType() 


return SBLOPERATOR.COMPONENT OType; 
I 


Boolean SB_LOPERATOR_COMPONENT::process _ty pe info() 
{ 


// update all usage dictionaryies for inputs and outputs 

// . 

// first go through all of the inputs 

Dictionarylterator next input=input_attributes()—id iterator(); 
while(next_input.moreData()) 


SBID-DECL +this_decl=(SBID_DECL *)(Entity *)next input(); 
SB-_TYPE_NAME «this_typename=this_decl—typename(); 

// first see if this .d_decl type is a generic 

if( generic_usage()—update(this_type_name)==FALSE) 


// was not a generic type so put it in the usage list 
// based on whether or not it 1s recognized 
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if(this_ty pe_name—recognized()==FALSE) 


// was unrecognized so try to update 

// the unrecognized list or add it to 

// the lst 

if( unrecognized _type_usage()— 
update(this type name)==FALSE) 


// not yet in list so add it 
unrecognized type-_usage()— 
add_type(this_type name—id(), 
this_type_name); 

// now update it for being used once 
unrecognized type_usage()— 
update(this_typename); 

}; 
j 


else 


// this type name is recognized so update 
// or add tt 
if(recognized_type_usage()— 
update(this type name)==FALSE) 
{ 
// not yet in list so add it 
recognized _type_usage()— 
add_type(this_type_name—id(), 
this_type_name); 
// now update it for being used once 
recognized _type-_usage()— 
update(this_type_name); 


is 
Dictionarylterator next_output=output_attributes()—id iterator(); 
while(next_output.moreData()) 
{ 
SB.ID_DECL *this_decl=(SBID_DECL *)(Entity *)next_output(); 
SB_TYPE_NAME sthis_type_name=this_decl—typename(); 


// first see if this id_decl type is a generic 
if( generic_usage()—-update(this_type name)==FALSE) 


// was not a generic type so put it in the usage list 
// based on whether or not it is recognized 
if( this_type_name—recognized()==FALSE) 
{ 
// was unrecognized so try to update 
// the unrecognized list or add it to 
// the list 


i 


if( unrecognized ty pe_usage()— 
update(this type name)==FALSE) 


ie 


else 


{ 


// not yet in list so add it 
unrecognized type usage()— 
add_type(this_type_name—id(), 
this_typename); 
// now update it for being used once 
unrecognized type_usage()— 
update(this_ty pe name); 


// this type name is recognized so update 

// or add tt 

if( recognized _type_usage()— 
update(this_tvypename)==FA LSE) 


{ 


He 


return TRUE; 


// not yet in list so add it 
recognized _ty pe_usage()— 
add_type(this.type name—id(), 
this_type_name); 
// now update for being used onece 
recognized ty pe_usage()— 
update(this_type_name); 


Boolean SB_LOPERATOR_COMPONENT::filter(SBOPERATOR-COMPONENT +library_unit) 


{ 


// apply additional filter operations to the library unit 
// to see if the component can be rejected. True means 
// that rt may still be a match, False indicates no match 


return TRUE: 


# include ”sball.hxx” 


# include ”’sbextern.h’” 


SB-OPERATOR_COM PONENT_LIBRARY::SB_LOPERATOR-COMPONENT _LIBRARY(APL 
+*theAPL) : 
Object(theA PL) 


his 


SB-OPERATOR.COMPONENT_LIBRARY::SB-OPERATOR-COMPONENT-_LIBRARY() : 
Object() ) 


SB_-COMPONENT_DICTIONARY *new-operator_component-dictionary= 
new SB_COMPONENT_DICTIONARY(); 


the_operator_-component_dictionary= 
new _operator_component -dictionary—findT Ref(); 


Dictionary *«new-_state_dictionary=new Dictionary{OCvVinteger, 
OC_dictionary, 
TRUE, 
FALSE); 


the_state_dictionary=new-state dictionary—findT Ref(); 


Dictionary *new_non-state_dictionary=new Dictionary(OC integer, 
OC dictionary, 
TRUE, 
FALSE); 


the.non-state_dictionary=new non state dictionary —findT Ref(); 
}; 
void SB_OPERATOR-COMPONENT_LIBRARY::Destroy(Boolean aborted) 
{ 


operatorcomponent_dictionary()— Destroy(aborted); 


// now must iterate through the multi-attribute query 
// dictionary tree 


Dictionary *leaf_dictionary; 
Dictionary *by_num-inputs-dictionary; 
Dictionary *by_num_unrecognized dictionary; 


Dictionary *by.num_outputs_dictionary; 


by-num_inputs_dictionary=state_dictionary(); 
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Dictionarylterator next input_dictionary= 
Dictionarylterator(by num_inputs_dictionary); 


while(next_input_dictionary.moreData()) 


{ 


by_num_unrecognized_dictionary= 
(Dictionary *)(Entity *)next_input_dictionary(); 


Dictionarylterator next_outputs_dict(by num_unrecognized dictionary); 


while(next_outputs_dict.moreData()) 


{ 


by_num_outputs_dictionary=(Dictionary *)(Entity *) 
next_outputs_dict(); 


Dictionarylterator next_leaf_dict(by _num_outputs_dictionary); 


while(next_leaf_dict.moreData()) 


{ 


leaf_dictionary=(Dictionary *)(Entity *) 
next leaf_dict(); 


Dictionarylterator next-component(leaf_dictionary ); 


while(next_component.moreData()) 


{ 
((SBLOPERATOR.COMPONENT «)(Entity *)next component())— 


Destroy(aborted); 
}; 


leaf_dictionary— Destroy(aborted); 
i 
by_num_outputs_dictionary — Destroy(aborted); 
Ip 
by_num_unrecognized_dictionary— Destroy(aborted); 


fe 


by_num_inputs_dictionary— Destroy(aborted); 
by_num_inputs_dictionary=non_state_dictionary(); 


next input-_dictionary= 
Dictionarylterator( by -num_inputs_dictionary); 


while(next_input_dictionary.moreData()) 


{ 


by_num_unrecognized_dictionary= 
(Dictionary *)(Entity *)next_input_dictionary(); 


Dictionarylterator next_outputs_dict(by num _unrecognized -dictionary ); 
while(next_outputs_dict.moreData()) 


{ 


by_num_outputs-dictionary=(Dictionary *)(Entity *) 
next _outputs-dict(); 


Dictionarylterator next_leaf_dict(by .num_outputs_dictionary ); 
while(next_leaf_dict.moreData()) 


leaf_dictionary=(Dictionary *)(Entity *) 
next Jeaf_dict(); 


Dictionarylterator next_component(leaf_dictionary); 


while(next_component.moreData()) 


((SBLOPERATOR-COMPONENT +*)(Entity *)next component())— 
Destroy(aborted); 
}; 


leaf_dictionary — Destroy(aborted); 
be 
by_num_outputs_dictionary— Destroy(aborted); 
i 
by_num_unrecognized_dictionary— Destroy(aborted); 
J; 


by_num_inputs_dictionary— Destroy(aborted); 


delete the operator_component-_dictionary; 
delete the_state_dictionary; 
delete the_non-state-_dictionary; 


}; 
void SB_LOPERATOR-COMPONENT LIBRARY::deleteObject(Boolean deallocate) 
{ 

operator _component_dictionary()—deleteObject(deallocate); 

Dictionary *leaf_dictionary; 

Dictionary *by_num-inputs-dictionary; 

Dictionary «by_num-unrecognized-dictionary; 


Dictionary *«by_num_outputs-_dictionary; 


| by_num_inputs_dictionary=state_dictionary(); 


Dictionarylterator next input_dictionary(by_num_inputs-dictionary); 
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while(next_input_dictionary.moreData()) 


{ 


by_num_unrecognized_dictionary= 
(Dictionary *)(Entity +*)next_input_dictionary(); 


Dictionarylterator next_outputs_dict(by num _unrecognized dictionary); 


while(next_outputs_dict.moreData()) 


{ 


by.num_outputs_dictionary=(Dictionary *)(Entity *) 
next outputs_dict(); 


Dictionarylterator next leaf_dict(by num_outputs-_dictionary); 
while(next_leaf_dict.moreData()) 


leaf_dictionary=(Dictionary *)(Entity *) 
next leaf_dict(); 


Dictionarylterator next_component(leaf_dictionary); 


while(next_component.moreData()) 


((SBLOPERATOR.COMPONENT +*)(Entity *)next component())— 
deleteObject( FALSE), 
" 


leaf_dictionary—deleteObject( FALSE); 
be 
by_num_outputs_dictionary—deleteObject( FALSE); 


}s 


by_num_unrecognized.dictionary —deleteObject(FALSE); 
} | 


by_num_inputs_dictionary—deleteObject(FA LSE); 
by_num_inputs_dictionary=non-_state_dictionary(); 


next _input_dictionary= 
Dictionarylterator(by num_inputs_dictionary); 


while(next_input_dictionary.moreData()) 


{ 


by_num_unrecognized_dictionary= 
(Dictionary *)(Entity *)next_input_dictionary(); 


Dictionarylterator next_outputs_dict(by num_unrecognized -dictionary); 
while(next_outputs_dict.moreData()) 


by_num_outputs-_dictionary=(Dictionary *)(Entity *) 
next outputs_dict(); 


DictionarylIterator next leaf_dict(by_num_outputs_dictionary); 
while(next_leaf_dict.moreData()) 


leaf_dictionary=(Dictionary *)(Entity *) 
next leaf_dict(); 


DictionarylIterator next-component(leaf_dictionary ); 


while(next-component.moreData()) 


((SBLOPERATOR-COMPONENT *)(Entity *)next -component())— 
deleteObject( FALSE); 
}: 


leaf_dictionary—deleteObject( FALSE); 
ie 


by_num_outputs_dictionary—deleteObject( FALSE); 


, 


by_num_unrecognized-dictionary—deleteObject(FALSE); 


F 


by-num-inputs-_dictionary—deleteObject( FALSE); 


Object::deleteObject(deallocate); 
}; 


void SB-OPERATOR-COMPONENT LIBRARY::putObject(Boolean deallocate) 
{ 


operator component-_dictionary()—putObject(deallocate); 


state_dictionary()—putObject(deallocate); 
non-state-dictionary()—putObject(deallocate); 
Object::putObject(deallocate), 


i 


Type *SBLOPERATOR_COM PONENT _LIBRARY::getDirectType() 


return SBLOPERATOR.COMPONENT LIBRARY OType; 
I 


SB-COMPONENT DICTIONARY 
*5B-OPERATOR-COMPONENT LIBRARY::operator component _dictionary() 
{ 


i 


return (SB-COMPONENT_DICTIONARY +*)(Entity *) 
the.operator_component_dictionary — Binding(); 


Dictionary *SBLOPERATOR-COMPONENT LIBRARY ::state-dictionary() 


{ 


i 


return (Dictionary *)(Entity *)the_state_dictionary— Binding(); 


Dictionary *SBLOPERATOR-COMPONENT_LIBRARY::non-state dictionary () 


ie 


return (Dictionary *)(Entity *)thenon-state-dictionary—Binding(); 


Boolean SBLOPERATOR.COM PONENT LIBRA RY::add(SB-OPERATOR-COMPONENT 


#new component) 


{ 


Boolean return_flag=TRUE; 

Dictionary +leaf_dictionary; 

Dictionary +by_num_inputs_dictionary; 
Dictionary *by_num_unrecognized-_dictionary; 
Dictionary *by_num_outputs_dictionary; 


operator_component_dictionary()—-add(new_component); 
operator_component_dictionary()—Dictionary::putObject(); 


// insert into the component dictionary was successfull 
// so insert it into the hbrary 


if(new_component—states()==TRUE) 


{ 
} 


else 


{ 
ie 


// have correct state dictionary so now find correct 
// input dictronary 


by_num-_inputs_dictionary=state_dictionary(); 


by_num_inputs_dictionary=non_state_dictionary(); 


if(by_num_inputs_dictionary —isIndex(new_component—nun~inputs() )==TRUE) 


{ 


by_num_unrecognized-dictionary=(Dictionary *) 
(Entity *)(*by_num_inputs-dictionary ) 
[new_component—num_inputs()}; 


else 
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by_num_unrecognized_dictionary=new Dictionary(OCVUnteger, 
OC-dictionary, 
TRUE, 
FALSE); 


by_num_inputs_dictionary —Insert(new_component— 
num _inputs(), 
by_num_unrecognized dictionary); 


is 


// have correct by num inputs dictionary so get the 
// unrecognized types dict. 


// got the unrecognized dictionary 
// use num generics since for a library unit all unrecognized types 
// must be generics 


if(by_num_unrecognized_dictionary — 
isIndex(new component—num_generic_types())==TRUE) 


{ 


by_num_outputs-dictionary=(Dictionary *)(Entity *) 
(*by_num_unrecognized_dictionary) 
[new_component—num_generic_types()]; 


else 


by_num_outputs_dictionary=new Dictionary(OC-integer, 
OC-_dictionary, 
TRUE, 
FALSE); 


by_-num_unrecognized_dictionary—Insert(new _component— 
num_generic_types(), 
by_num_outputs_dictionary); 


if(by_num_outputs_dictionary— 
isIndex(new -component—num_outputs())==TRUE) 
{ 
leaf_dictionary=(Dictionary *)(Entity *) 
(+by_num_outputs_dictionary ) 
[new-component—num-_outputs()}]; 


else 


leaf_dictionary=new Dictionary(OC-string, 
SB_-COMPONENT_OType, 
FALSE, 
FALSE); 


by_num_outputs_dictionary—Insert(new_-component— 
num.outputs(), 
leaf_dictionary); 


// have to leaf dictionary so now insert the component into it 
leaf_dictionary—Insert(new_component—component_name(), 
new _component); 


leaf_dictionary—putObject(); 
by_num_inputs_dictionary—putObject(); 
by_num_unrecognized_dictionary—putObject(); 
by_num_outputs_dictionary—put Object(); 


return return_flag; 


if 


void SB.OPERATOR-COMPONENT _LIBRARY:: 
delete _component(SBLOPERATOR.-COMPONENT +*the-component) 


{ 


Dictionary *leaf_dictionary; 

Dictionary *by_num_inputs_dictionary; 
Dictionary *by_num_unrecognized_dictionary; 
Dictionary +by_num-_outputs_dictionary; 


operator_component_dictionary()— 
Remove(the-component—component_name()); 
operator_component-_dictionary()—putObject(); 


% 


if(the.component—states()==TRUE) 
{ 


} 
else 


{ 
ie 


by_num_inputs_dictionary=state_dictionary(); 


by_num_inputs_dictionary=non-_state_dictionary(); 


// have correct state dictionary so now find correct 
// input dictionary 


if(by_num_inputs_dictionary —isIndex(the-component—num_inputs())==TRUE) 


by-num_unrecognized_dictionary=(Dictionary *) 
(Entity *)(*by_num_inputs-dictionary) 
[the-component—num_-inputs()]; 


// got the unrecognized dictionary 
// use num generics since for a library unit all unrecognized types 
// must be generics 


if(by_num_unrecognized_dictionary — 
isIndex(the component—num_generic_types())==TRUE) 


{ 


by_num_outputs_dictionary=(Dictionary *)(Entity *) 
(*by num_unrecognized-_dictionary ) 
(the_component—num_generic_types()]; 


if(by_num_outputs_dictionary— 
isIndex(the-component—num_outputs())==TRUE) 


leaf_dictionary=(Dictionary *)(Entity *) 
(*by num_outputs_dictionary) 
[the component—nuni_outputs()}; 


// have to leaf dictionary 
leaf_dictionary — Remove(the-component—component_name()); 
leaf_dictionary—putObject(); 
if(leaf_dictionary —Cardinality()==0) 
{ 
by_num_outputs_dictionary — 
Remove(the-component—num_outputs()); 
by_num_outputs_dictionary—putObject(); 


if(by_num_outputs_dictionary—Cardinality()==0); 


by _num_unrecognized-dictionary— 
Remove(the-component—num_generic_types()); 
by_num_unrecognized_dictionary—putObject(); 


if( by_num_unrecognized_dictionary+Cardinality()==0) 
{ 
by.num_inputs_dictionary— 
Remove(the-component—num_inputs()); 
by num_inputs_dictionary—putObject(); 
by _num_unrecognized_dictionary—deleteObject( TRUE); 


} 


by num_outputs_dictionary—deleteObject(TRUE); 
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ls 
leaf_dictionary—deleteObject(TRUE); 


js 


SB_COMPONENT _DICTIONARY *SB_-OPERATOR.COMPONENT_LIBRARY:: 
query(SBCOPERATOR_COMPONENT «*query_-component) 


{ 


SB_-COMPONENT_DICTIONARY «query result=new SB-COMPONENT DICTIONARY (); 


Dictionary *leaf_dictionary; 

Dictionary *by_num_inputs-dictionary; 
Dictionary *by_num_unrecognized dictionary; 
Dictionary *by_num_outputs_dictionary; 


// get the correct state_dictionary to start the query 


if( query_component—states( )==TRUE) 
{ 


by_num_inputs_dictionary=state_dictionary(); 


} 


else 


{ 


by_num_inputs_dictionary=non_state_dictionary(); 


le 


// have correct state dictionary so now find correct 
// input dictionary 


// for inputs must match exactly so only get one dictionary 
if((by_num_inputs-dictionary—isIndex(query-component—num_inputs()))==TRUE) 


by_num_unrecognized_dictionary= 
(Dictionary *)(Entity *)(*by_num_inputs_dictionary) 
[query component—num_inputs()]; 
// got the correct unrecognized_dictionary so iterate over at for 
// the output dictionaries 
Dictionarylterator next_outputs_dict= 
Dictionarylterator(by_num_unrecognized dictionary, 
PALE, 
query _component— 
num_unrecognized_types()); 


// loop through all of the unrecognized types that are valid 


while(next_outputs_dict.moreData()) 
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{ 


by_num_outputs_dictionary=(Dictionary *)(Entity *) 
next outputs _dict(); 


// got the outputs dictionary so now get the leaf dictionarys 


Dictionarylterator next eaf_dict= 
Dictionarylterator(by_num_outputs_dictionary, 
FALSE, 
query _component— 
num_outputs()); 


while(next_leaf_dict.moreData()) 


leaf_dictionary=(Dictionary *)(Entity *) 
next leaf_dict(); 


Dictionarylterator next_component= 


Dictionarylterator(leaf_dictionary); 


// got an output dictionary so iterate 
// through it and put the components in the 
// return result dictionary 


whiule(next component.moreData()) 


SB_-OPERATOR.COMPONENT +*the-component= 
(SBLOPERATOR_COMPONENT +*)(Entity *)next .component(); 


if( query.component —filter(the_-component)==TRUE) 


query result—add(the component); 


}; 
// add code to interface to semantic check routine here 


return query-_result; 


le 


void SBLOPERATOR_COMPONENT LIBRARY: list(ofstream& outstream) 
{ 


operator_com 





#include ”sball.hxx” 


#include ’sbextern.h” 


SB_RECOGNIZED_TYPES::SB_RECOGNIZED-TYPES(char +#file) : Object() 


{ 


char new type name[256]; 
int count=0; 

int flag_value; 

int case_sensitive int; 


Dictionary *new_name-_dictionary=new 


Dictionary(OC-string,OC integer, FALSE,FALSE); 
the name_dictionary =new_name-dictionary—findT Ref(); 
ifstream type-_defs/(file); 


type_defs >> case-sensitive int; 
if(case_sensitiveint==0) 


{ 


case sensitive=FALSE; 


} 


else 


{ 


case _sensitive=TRUE;: 


}; 


Boolean done_flag=FALSE; 
while(done_flag==FA LSE) 


count+-+; 
type_defs > new_type_name; 
if(strcmp(new-_ty pe_name,"~")#0) 


{ 


char *store_type_name; 
if('case_sensitive) 


store.type_name=convert_to-upper(new type name); 
else 
store_type_name=new-type_naime; 


hs 


name-_dictionary()—Insert(store_type name,count); 


else 


ro 


done flag=TRUE; 


count--; 


ie 
js 
array size=count; 


Array *new_row_array=new Array(OC.array,count, 1); 
the_row_array=new row-array —findT Ref(); 


it row_count=1; 


for(row-count=1;row-count < array_size+ 1; row_count++) 


{ 


Array *new-colum_array=new Array(OC integer,count,1); 
int 1: 
for(i=l;(i < count+1);i++) 


{ 


type_defs >> flag_value; 
new colum_array —set Element(i,flag_value); 


} 


row_array()—set Element(row-count,new-colum_array ); 


te 
i 


SB_RECOGNIZED-_TYPES::SB_RECOGNIZED-TYPES(APL #theAPL) : Object(theAPL) 


{ 
j 


void SB_LRECOGNIZED_TYPES::Destroy(Boolean aborted) 
{ 

int row_count; 

name-_dictionary()— Destroy(aborted); 


for(row_count=1;row_count < array-size+1; row-count++) 


Array &row=*(row-array()); 
((Array *)(Entity *)row{row.count])— Destroy(aborted); 


row-array()—+Destroy(aborted); 


delete the_name-dictionary; 
delete the_row-array; 


Object::Destroy(aborted); 
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void SB_-RECOGNIZED_TYPES::deleteObject( Boolean deallocate) 
{ 


int row_count; 
name_dictionary()—deleteObject( FALSE); 
for(row_count=1;row_-count < array_size+1; row-count++) 


Array &row=+*(row-array()); 
((Array *)(Entity *)row[row-count])—deleteObject( FALSE); 


row-_array()—deleteObject(FALSE); 


Object::deleteObject(deallocate); 


js 


void SB_-RECOGNIZED.TYPES::putObject( Boolean deallocate) 
{ 


int row_count; 
name-_dictionary()—putObject(deallocate); 
for(row-count=1;row_count. < array_size+1; row-count++) 


Array &row=+#(row-array()); 
((Array *)(Entity *)row[row_count])—putObject(deallocate); 


row-array()—putObject(deallocate); 


Object::putObject(deallocate); 


3 
Type *SB_-RECOGNIZED_TYPES::get Direct Type() 


return SB_-RECOGNIZED_TYPES OType; 
i 


Array *SB_RECOGNIZED-_TY PES::row-array() 


return (Array *)(Entity *)therow_array—Binding(); 


Is 


Dictionary *SB-RECOGNIZED-_TYPES::name-dictionary () 
{ 


return (Dictionary *)(Entity *)themame-dictionary—Binding(); 
}; 
Boolean SB-RECOGNIZED-.TYPES::map(int in-map,int out. map) 
{ 

Boolean return_flag=FALSE; 


Array& rows=*(row-array()); 
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Array& colum=+((Array *)(Entity *)rows[in-map]); 
if( int(colum[out_map])==1) 


{ 
return flag=TRUE; 
Ir 


return return_flag; 


ls 


int SB_RECOGNIZED_TYPES::typenumber(char *type_id) 


{ 
int return_value=SB_UNRECOGNIZED-TYPE; 


char *search_id; 
if('!case_sensitive ) 


search 1d=convert to_upper(type id); 


search id=ty ped; 


Ve 


if( name_dictionary()—isIndex(search-_id)) 


{ 


return_value=int(name-dictionary()—getIntegerElement(search_id)); 


i 


return return_value; 


} 


char +SB_RECOGNIZED_TYPES::convert .to_upper(char *type-id) 
{ . ° 
mnt 1; 
char *new.id=new char{strlen(typeid)+1]; 
for(i=0;1<strlen(type1d);1++) 


{ 


if(islower(ty pe-id{i])) 


new id[i]=ty pe_id{i]+’A’-’a’; 


new id[i]=type-id|i]; 


hs 


}; 
newid{i]J=N ULL; 


return new_id: 
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# include ”sball.hxx” 
# include ’sbextern.h” 


SB-TYPE_NAME:SB_TYPE_NAME(APL stheAPL) : Object(theA PL) 
{ 
le 


SB-TYPENAME::SB-TYPE NAME(char «newid,SBID-DECL_DICTIONARY 
«new_dictionary) : Object() 


{ 


the id=new char [strlen(new-id)+1]; 
strcpy(the_id,new id); 


if(new_dictionary==NULL) 


{ 
new.dictionary= new SB_ID-_DECL_DICTIONARY(); 


the.id_decl_dictionary=new-dictionary—findT Ref(); 


Boolean foundflag=FALSE; 

SB_ID_DECL +*base_ty pe_decl; 

Dictionarylterator next.id_decl=id_decl_dictionary()—iditerator(); 
while(nextid_decl.moreData() && !found_flag) 


{ 


SBID_DECL *the.type_decl=(SBID.DECL «)(Entity *)next id -decl(); 
if((SB_MAIN_LIBRARY—recognized _types())— 
type_number(the_ty pe_decl—id())==SB_BASE_TYPE) 


// found the base type decl 
found_flag=TRUE; 
base_type-decl=the_ty pe -decl; 


i 
}; 
if(found_flag) 


// has a base type defined so look it up 
the_base ty pe_id=(base_type decl—ty pe name())—id(); 


} 


else 


the_base type.id=thead; 


b 
the_base_ty pe-code=(SB_MAIN LIBRARY — 
recognized .types())—type_-number(the_base_ty ped); 
the_type.code=(SB_MAIN LIBRARY— 
recognized _ty pes())—type_number(the_id); 
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void SB_TYPE_NAME::Destroy( Boolean aborted) 
if(theid#NULL) 


delete theid; 


i 

if(the_base_typed) 

delete the_base_typeid; 

}; 
id_decl_dictionary()— Destroy(aborted); 
delete the_id_decl_dictionary; 
Object::Destroy(aborted); 

J; 

void SB_TYPE_NAME::deleteObject( Boolean deallocate) 
id_decl_dictionary()—deleteObject( FALSE); 
Object::deleteObject(deallocate); 

}; 

void SB._TYPE_NAME::putObject( Boolean deallocate) 
id_decl_dictionary()—putObject(deallocate); 
Object::putObject(deallocate); 

}; 

SBID-DECL_DICTIONARY *SB-TYPE_NA ME::id_decl-dictionary() 

return (SB_ID-DECL_DICTIONARY *)(the_id_decl_dictionary— Binding()); 
}; 
Type *SB-TYPE_NAME::get Direct Type() 


return SB_TYPE_NAME_OType: 
}; 


Boolean SB_TYPE_NAME::operator ==(Entity& other_type) 


Boolean return_flag=FALSE; 


i 


char *this_base.id=this—base_type-id(); 

char *this.id=this—id(); 

char *other_base id=((SB-TYPE_NAME &)other type).base type id(); 
char *otherid=((SB-TYPE_NAME &)other type).id(); 


if(strcmp(this_base_id ,other_base.idj)==0 && 
(stremp(thisid,otherid)==0)) 


return fag= CRUE, 
}; 


return return_flag; 


Boolean SB-TYPE_NAME::operator >(Entity& other_type) 


{ 


Boolean return_flag=FA LSE; 

char *this_base id=this—base_type-id(); 

char *thisid=this—id(); 

char +other_baseid=((SB-TYPE_NAME &)other type). base type id(); 
char *otherid=((SB-TYPENAME &)other type).id(); 


if( stremp(this_base_id,other_base_id) < 0) 
return _flag=FALSE; 


else if(strcmp(this_base_id,other_base_id) > 0) 


{ 
return_flag=TRUE; 


else if(strcmp(this_id,other_id)< 0) 


{ 
return flag=FALSE; 


j 


else 


{ 
return flag=TRUE; 
iF 


return return_flag; 


void SB_TYPE_NAME::printOn(ofstream& outstream) 


{ 


outstream < this—the_id; 

outstreaam <" = " < type_code(); 

outstream < " ( “ < thesbase2type sides 
outstream < base_type_code()<< " )"; 


outstream < “[ ": 


id_decl_dictionary()—printOn(outstream); 
outstream < "]"; 


}; 


Listlterator SB-TYPE_NAME::decl iterator() 
{ 


return id_decl_dictionary()—order terator(); 
i 


int SB_TYPE_NAME::num_decl() 
{ 


int return_value; 


if(id_decl_dictionary()==NULL) 
{ 


return_value=0: 


} 


else 


return_value=id -decl -dictionary()—num(); 


lf 


return return_value; 


he 
char +SB_TYPE_NAME::id() 


return thed; 

I 

char *SB-TYPE_NAME::base-typeid() 
return the_base_typed; 


lt 


int SB-TYPE_NAME::base.type-code() 
{ 


return the_base_type-code; 


le 


int SB-TYPE_NAME::type-code() 


return the_type_code; 
}; 
Boolean SB-TYPE_NAME::recognized() 


{ 
return Boolean(base_type-code()#SB_UNRECOGNIZED_TYPE), 
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# include ”sball.hxx” 
# include ’sbextern.h” 


SB_TEXT_OBJECT::SB_TEXT_OBJECT(APL +#theAPL) : Object(theAPL) 
{ 
hi 


SB_TEXT_OBJECT::SB_TEXT OBJECT() : Object() 
{ 


the_text=new char{1]; 
strcpy(the_text,""'); 


} 


Type *+SB_-TEXT_OBJECT::get DirectType() 


return SB_TEXT_OBJECT OType; 
}; 


void SB_TEXT_OBJECT::Destroy( Boolean aborted) 


delete the_text; 
Object::Destroy(aborted); 


is 
void SB_TEXT_OBJECT::deleteObject(Boolean deallocate) 


Object::deleteObject(deallocate); 


}; 


void SB_TEXT_OBJECT::putObject(Boolean deallocate) 


Object::putObject(deallocate); 
J; 


void SB_TEXT_OBJECT::append(ifstream& instream) 
{ 


ostrstream buffer; 


while(linstream.eof()) 


{ 


char text=instream.get(); 
if(text#EOF) 
{ 


buffer.put(text); 
}; 
buffer.put(NULL); 
the_text=buffer.str(); 


ie 


void SB_TEXT_OBJECT::append(char *instring) 
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{ 
the_text=new char(strlen(instring)+ 1]; 
strepy(the_text ,instring); 


’ 


void SB_TEXT_OBJECT::text(ofstream& outstream) 
{ 


outstream < the_text; 


Ne 


char «SB_TEAT OBJECT::text() 
{ 


return the_text; 


ie 
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# include ”sball.hxx” 
# include ”’sbextern.h” 


SB_TYPE_USAGE::SB_TYPE_USAGE(APL *theAPL) : Object(theA PL) 


{ 
is 


SB_TYPE_USAGE::SB_TYPE_USAGE(char *new-_type.d, 
SB_TYPE.NAME *new-_type name): 
Object() 


the_typeid=new char|[strlen(new_typeid)+1]; 
strcpy(the_typeid,new_type id); 


the_type name=new_type name—findT Ref(); 
the_times_used=0; 


ie 


void SB_TYPE_USAGE:: Destroy({Boolean aborted) 
{ 


if( the_typeid) 


delete the_type id; 


}; 
type_name()—Destroy(aborted); 


Object::Destroy(aborted); 


js 


void SB_TY PE_USAGE::deleteObject( Boolean deallocate) 


{ 
type_name()—deleteObject( FALSE); 


Object::deleteObject(deallocate); 


iF 


void SB_TYPE_USAGE::putObject(Boolean deallocate) 
{ 


type name()—putObject(deallocate); 


Object::putObject(deallocate); 


3 


char *SB-TYPE_USAGE::type-id() 
{ 
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return the_type.d; 


ie 


SB-TYPE_NAME +*SB_TYPE-_USAGE::typename() 


{ 
return ((SB-TYPE_NAME «*) (the.type name—Binding())); 


He 


void SB_TYPE_USAGE::used() 
{ 


the_times_used+-+; 


IP 


int SB_TY PE_USAGE::times_used() 
{ 


return (the_times_used); 


Me 


Type *SB_TYPE_USAGE::get Direct Ty pe( ) 


{ 
return SB_TYPE_USAGE_OType; 
}; 


void SB_TYPE_USAGE::printOn(ofstream& outstream) 
{ 


outstream < the.typeud < " used " < the_times.used < " "'; 
type_naine()—printOn(outstream); 


’ 


char *SB_TYPE_USAGE::base_ty peid() 
{ 


return type_name()—base_typeid(); 


\e 
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# include ”sball .hxx” 
# include ’sbextern.h” 


SB_TYPE-USAGE_DICTIONARY::SB_TY PE_USAGE_DICTIONARY(APL xtheAPL) : 
Object(theAPL) 


{ 
i 


SB-TYPE-USAGE_DICTIONARY::SB-_TYPE_USAGE_DICTIONARY() : Object() 
{ 


Dictionary *new_dictionary_by_base_type= new Dictionary(OC-string, 
SB_TYPE_USAGE_OType, 
TRUE, 
TRUE); 


the_dictionary_by_base_type=new dictionary _by _base ty pe—findTRef(); 


Dictionary *new-dictionary_by_typeid= new Dictionary(OC-.string, 
SB_TYPE_USAGE_OType, 
TRUE, 
FALSE); 


the_dictionary_by_typeid=new-dictionary_by _typeid—findT Ref(); 

Dictionary *new-dictionary_by_times_used=new Dictionary(OC_integer, 
SB-_TYPE-USAGE_OType, 
TRUE, 
TRUE); 


the_dictionary_by_times_used=new dictionary _by_times_used—findT Ref(); 


void SB-TYPE_USAGE_DICTIONARY::Destroy( Boolean aborted) 
{ 


Dictionarylterator next decl=typeid_iterator(); 
while(next_decl.moreData()) 


((SB_TYPE_USAGE *)(Entity *)next decl())—Destroy(aborted); 


j 


dictionary _by_base_type()— Destroy(aborted); 
dictionary _by_type_id()— Destroy(aborted); 
dictionary _by_times_used()— Destroy(aborted); 


delete the_dictionary_by -base_ty pe; 
delete the_dictionary _by typed; 
delete the_dictionary_by _times_used; 


Object::Destroy (aborted); 
}; 


void SB-TYPE_USAGE_DICTIONARY::deleteObject( Boolean deallocate) 
{ 


Dictionarylterator next_decl=ty pe iditerator(); 
while(next_dec!.moreData()) 


((SB_TYPE_USAGE +*)(Entity *)next -decl())—deleteObject(FALSE); 
se 
dictionary _by_base_ty pe()—deleteObject( FALSE), 


dictionary _by_type-id()—deleteObject( FALSE); 
dictionary _by _times_used()—deleteObject( FALSE); 


Object::deleteObject(deallocate); 
}; 


void SB_TYPE_USAGE_DICTIONARY::putObject(Boolean deallocate) 
{ 


Dictionarylterator next_decl=typeiditerator(); 


while(next_decl.moreData()) 


{ 


((SB_TYPE_USAGE «)(Entity *)next_decl())—putObject(deallocate); 
}; 
dictionary -by _base_ty pe( )—putObject(deallocate); 
dictionary by.type.id()—putObject(deallocate); 
dictionary by _times_used()—putObject(deallocate); 


Object ::putObject(deallocate); 


Type «SB_TYPE_USAGE_DICTIONARY::get Direct Type() 
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return SB_TYPE_USAGE_DICTIONARY_OType; 
}; 


Dictionary *SB_TYPE_USAGE_DICTIONARY::dictionary_by_base_type() 
{ 


return (Dictionary *)(the-dictionary_by_base_type— Binding()); 


If 


Dictionary *SB-TYPE_USAGE_DICTIONARY::dictionary_by_typeid() 
{ 


return (Dictionary *)(the_dictionary_by_type_id— Binding()); 
js 
Dictionary *SB-TYPE_USAGE_DICTIONARY::dictionary-_by_times_used() 


return (Dictionary *)(the_dictionary_by_times_used—Binding()); 


ie 


Boolean SB_TYPE_-USAGE_DICTIONARY::add-_type(char *typeid,SB_TYPE_NAME 
*type_name) 


Boolean return_flag; 


if(dictionary_by_type_id()—isIndex(type_id)==FALSE) 


igoiD NOT YET USED 
SB_TYPE_USAGE #new_usage=new SB_TYPE USAGE(type id,type_name); 


dictionary_by-type_id()—Insert(typeid,new_usage); 
dictionary _by_base_type()—Insert(ty pe name—base_ty pe id(),new usage); 
dictionary _by times_used()—Insert(0,new-_usage); 


return _flag=TRUE; 
} 


else 


// id already in use so can not insert 
return flag=FALSE; 


}; 


return return_flag; 


}; 
Boolean SB-TYPE_-USAGE_DICTIONARY::add_type(SB_TYPE_USAGE *type_usage) 


Boolean return_flag; 


if(dictionary_by_type_id()—isIndex(type_usage—ty pe_id())==FALSE) 


{ 
// ID NOT YET USED 


dictionary_by_type_id()—Insert(type_usage—typetd(),type usage); 
dictionary _by_base_type()—Insert(type_usage— base type id(),type usage); 
dictionary_by_times_used()—Insert(0,type_usage); 


return flag=TRUE; 
} 


else 


// id already in use so can not insert 


return flag=FALSE; 
Ip 


return return_flag; 
}; 


Boolean SB_TYPE_USAGE_DICTIONARY::append(SB_TYPE_USAGE DICTIONARY 
«dictionary ) 


Boolean return flag=TRUE; 
Dictionarylterator next_id=dictionary—type_id iterator(); 
while(nextid.moreData() && return_flag==TRUE) 


SB_TYPE_USAGE +the_usage=(SB-_TYPE_USAGE «)(Entity *)next id(); 
return flag=add_type(the_usage); 


} 
/* nert_id. Reset(); 


while(next_id.moreData()) 


{ 
SB_TYPE_USAGE *the_usage=(SB_T YPE_USAGE *)(Entity *)nert_id(); 


dictionary->remove_usage(the_usage); 


Me 


dictionary->Destroy(FALSE);*/ 


return return_flag; 


i 


void SB_TYPE_USAGE_DICTIONARY::remove_usage(SB_TYPE_USAGE *the_usage) 
{ 


dictionary_by_times_used()— Remove(the_usage—times_used(),the_usage); 
dictionary by_type_id()— Remove(the_usage—ty pe_id(),the_usage); 
dictionary_by_base_type()— Remove(the_usage—base_typeid(),the usage); 
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| 


he 


void SB_TYPE_USAGE_DICTIONARY::printOn(ofstream& outstream) 
{ 


Dictionarylterator &next_decl= 
«(new Dictionarylterator(dictionary_by_base_type())); 


while(next_decl.moreData()) 


((SB-TYPE_USAGE +*)(Entity *) next_decl())—printOn(outstream); 
outstream < "\n"; 


fc 
Ie 


int SB_TYPE_USAGE_DICTIONARY::num() 


return (int)(dictionary_by_base_type()—Cardinality()); 


}; 


Dictionarylterator SB_-TYPE_USAGE_DICTIONARY::ty peid iterator() 
{ 


return Dictionarylterator(dictionary_by_typed()); 


Ir 


Dictionarylterator SB_-TYPE_USAGE_DICTIONARY::base_ty pe iterator() 
{ 


return Dictionarylterator(dictionary_by_base_type()); 


i 


Dictionarylterator SB-TYPE_USAGE_DICTIONARY::times_used iterator() 
{ 


return Dictionarylterator(dictionary_by_times_used()); 


iB 


Boolean SB-_TYPE_USAGE_DICTIONARY::update(SB_TYPE.NAME «typename) 


{ 
Boolean return_flag=FALSE; 


if(dictionary_by_type_id()—isIndex(type_name—id())) 


// this type id ts in the list so update its usage 
((SB_TYPE_USAGE «)dictionary_by_type_id()— 
get Entity Element(type_name—id()))—used(); 

return flag=TRUE; 


}; 


return return_flag; 


i 
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APPENDIX C - PARSER GENERATION INPUT 
FILES 


LEX INPUT 


To { 
# include "y.tab.h"; 
int line_number=1; 


ater” 


[aA] 
[bB} 
[cC] 
[dD] 
[eE] 
[fF] 
[gG] 
[hH} 
[il] 
(jJ] 
[kK] 
[IL] 
[mM] 
[nN] 
[oO] 
[pP] 
[qQ] 
[rR] 
[sS] 
[tT} 
[uU] 
[vV] 
[wW] 
[xX] 
[yY] 
[zZ] 
space fi} 


N< x* =e << SCOT VMN OVvVS Ss BT Kw Te MOoanAoO TP Q 


}{p}{e} retum(TY PE); 
} {e} {c} {i} (f} (i) (c} {a} (t} (2) (0} (n} retun(SPECIFICATION); 
n} {d} retum(END); 

Vin} {e}{r}{i}{c} retum(GENERIC); 
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{0} {p} {e} {r} {a} {t} {0} {r} retum(OPERATOR); 
{i} {n} {p} {u} {t} returmn(INPUT),; 

{o} {u} {t}{p} {u} {t) retum{(OUTPUT), 

{s} {t} {a} {t} {e} {s} retum(STATES); 

{e} {x} {c} {e} {p} {t} {1} {0} {n} {s} retum(EXCEPTIONS); 
{b} {y} {space} {r} {e} {q} {u) {i} {r} {e} {m} {e} {n} (t} {s} retumn(BY_REQ); 

{d} {e} {s} {c} {r} {1} {p} {t} {1} (o} (0) retunn(DESCRIPTION); 
{a} {x} {1} {0} {m} {s} retun(AXIOMS); 

{k} {e} {y} {w} {0} {r} {d} {s} retum(KEY WORDS); 


{m} {a} {x} {i} {m} {u} {m} {space} {e} {x} {e} {c} {u) {t} {i} {o} {nm} {space} {t} {i} {m} {e} 


{m} {i} {c} {r} {0} {s} fe} {c} 


{m}{s} 

{s} {e} {c] 

{m} {i} {n} 

(h} {0} {u) {r} {s} 
{a} {n} {d) 

{o} {r} 

{x} {0} {r} 

(t} {r} {u} {e} 

(f} {a} {1} {(s} fe} 
(n} {o} {t} 

nen 

ne 


"Ss" 
"<=" 


t tt 
4 
e ff 


e 
P 

{m} {o} {d} 
ir} {e}{m} 


[0-9] [0-9]* 
[0-9] [0-9]*"."[0-9]* 


rreee A sett tett 
et otf i] 


retum(MAX_EXEC_TIME): 


return(MICROSEC); 
retumn(MS); 
return(SEC); 
retum(MIN); 
retum(HOURS); 
returnn(AND); 
return(OR); 
retum(XOR); 
retumn(TRUE); 
retum(FALSE); 
retum(NOT); 
return('<'); 
return('>'); 
return(‘='); 
return(GTE); 
retum(LTE); 
retum(NEQV); 
retumn('+'); 
return('-'); 
return('&'); 
return('*'); 
return(’/); 
retum(MOD); 
return(REM); 
retum(EXP); 


return(INTEGER_LITERAL); 
retumn(REAL_ LITERAL); 
retumn(STRING_LITERAL); 


return(’.'); 
return(’:'); 
return(’,'); 
return(‘[’); 
retumn(’]’); 
retum(‘(’); 
return(’)’); 


char *temp=yytext; 
while(*temp!=NULL) 
{ 

if(*temp==N\n') 








retum(T: 
ps } 
[a-zA-Z][a-zA-Z_0-9]* retum(ID); 
[Xt]; | 
'Nn" | 
line_number++; 
}; 
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YACC INPUT 


Z%start component 


%union = { 
void* OBJECT_POINT; 


%token ID TYPE SPECIFICATION END GENERIC 

%token OPERATOR INPUT OUTPUT 

%token STATES EXCEPTIONS BY_REQ DESCRIPTION AXIOMS 

%token TEXT_BLOCK KEYWORDS 

%token MODGTELTE 

%token MS MICROSEC SEC HOURS MIN AND OR XOR 

%token NEQV REM EXP 

%token INITIALLY MAX EXEC TIME 

%token INTEGER LITERAL TRUE FALSE REAL_LITERAL STRING_LITERAL 
%token NOT ABS 


Jotype <OBJECT_POINT> type_spec optional_generic_specs 

%type <OBJECT_POINT> optional_type_decl optional_operator_decl 

Jotype <OBJECT_POINT> operator data_type type_name generic_attributes 
J%type <OBJECT_POINT> input_attributes output_attributes exceptions_attributes 


% { 
#include <stream.hxx> // c++ specific io routines 
#include "sball.hxx" 


/* this code allows the c++ compiler to use the c code generated by lex as standard c code */ 


extern "C--" 

{ 

extern int yylex(); 
extern int line_number; 
extern char yytext[]; 
#include <string.h> 
#include <ctype.h> 
#include <stdlib.h> 
#include <stdio.h> 


extern int yyerror(char *); 


extem SB_COMPONENT* YYPARSE_ component; // global pointer to the main library object 
extern Boolean YYPARSE_query_flag; 


// predeclare functions for internal stacks 


Ze 


void 
void 
void 
void 
char 
char 
void 
char 
char 


push_object(void *new_object); 
*top_object(); 

*pop_object(); 

push_id(char *new_id); 
*top_idQ; 

*pop_id(); 

push_rid(char *new_id); 
*top_rid(); 

*pop_ridQ); 


// declare global variables for the parser 


Boolean 


char 
% } 


%o% 


SB_COMPONENT_ADT_FLAG=FALSE; 
*psdl_type_name; 


component: 


data_type 


{ 


| 


operator 


( 


}; 
data_type: 


Tyee 
push_ID 


{ 


Y YPARSE_component=(SB_COMPONENT *)$1; 


YYPARSE_component=(SB_COMPONENT *)$1; 


psdl_type_name=top_idQ); 
push_object(new SB_ADT_COMPONENT(pop_idQ)); 
SB_COMPONENT_ADT_FLAG=TRUE; 


type_spec 


{ 


Mi 


type_spec: 


$$=(SB_COMPONENT *)pop_object(); 


SPECIFICATION 
opuonal_generic_specs 
optional_type_decl 
optional_operator_decl 
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functionality 
END 


{ 
if($2!=NULL) 
{ 


((SB_ADT_COMPONENT *)top_object())-> 
insert_generics((SB_TYPE_USAGE_DICTIONARY*)$2); 
je 
if($3'!'=NULL) 
{ 


((SB_ADT_COMPONENT *)top_object())-> 
insert_adt_usage((SB_TYPE_USAGE_ DICTIONARY *)$3); 


if($4'=NULL) 
{ 
((SB_ADT_COMPONENT *)top_objectQ))-> 
insert_operators((SB_ADT_OPERATOR_DICTIONARY *)$4); 


ie 
optional_generic_specs: 


GENERIC 
push_new_SB_TYPE_USAGE_DICTIONARY 
list_of_type_decl 

{ 


i 

| 

/*optional*/ 
{$$=NULL;}; 


$$=(SB_TYPE_USAGE_DICTIONARY *)pop_object(): 


optional_type_decl: 


push_new_SB_TYPE_USAGE_DICTIONARY 
list_of_type_decl 


{ 


J 
| 


/*opuonal*/ 
{$$=NULL;}; 


$$=(SB_TYPE_USAGE_DICTIONARY *)pop_objectQ); 


optional_operator_dec!: 


push_new_SB_ADT_OPERATOR_DICTIONARY 
operator_list 


{ 


} 
| 


$=(SB_ADT_OPERATOR_DICTIONARY *)pop_objectQ); 
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/*optional*/ 
{S$S=NULL;}; 


list_of_type_decl: 
list_of_type_decl 


type_decl 
| 


type_decl; 
type_decl: 


push_id_list_start 

id_list 

type_name 

{ 
// must use another stack in order to reverse the order back 
// to the original order in the declaration 
while(top_idQ!=BOTTOM_ID) 
{ 


} 

pop_id(); // pop off the BOTTOM_ID MARKER 
while(top_ridQ!=NULL) 

( 


push_rid(pop_id(Q)); 


((SB_TYPE_USAGE_DICTIONARY *)top_object())-> 
add_type(pop_rid(),(SB_TYPE_NAME *)$4); 
ie 


} 


id_list: 
id_list 
push_ID 
| 
push_ID; 


type_name: 


push_ID 
{ 


le 

| 

push_ID 

P 
push_new_SB_ID_DECL_DICTIONARY 
list_of_id_decl 


$S=new SB_TYPE_NAME(pop_idQ),(SB_ID_DECL_DICTIONARY*)NULL); 
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( 


$$=new SB_TYPE_NAME(pop_id(),(SB_ID_DECL_DICTIONARY*)pop_object()); 
i: 


list_of_id_decl: 
list_of_id_decl 


id_decl 
| 
id_decl; 


id_decl: 


push_id_list_start 
id_list 
type_name 
{ 
// must use another stack in order to reverse the order back 
// to the original order in the declaration 
while(top_idQ!=BOTTOM_ID) 
{ 
push_rid(pop_idQ); 


ie 
pop_id(Q); // pop off the BOTTOM_ID MARKER 
while(top_rid(Q)!=NULL) 
{ 
((SB_ID_DECL_DICTIONARY *)top_object())-> 
add_decl(pop_nd(),(SB_TYPE_NAME *)$4), 


ls 
operator_list: 


operator 


((SB_ADT_OPERATOR_DICTIONARY*)top_objectQ))->add((SB_ADT_OPERATOR*)$1); 
}; 
| 
operator 
operator_list 
{ 
((SB_ADT_OPERATOR_DICTIONARY*)top_object())-> 
add((SB_ADT_OPERATOR*)$1); 
3 


functionality: 


keywords 
informal_desc 


ale 


formal_desc 
keywords: 


{/*optional*/} 

| 

KEYWORDS 

push_id_list_start 

id_list 

( 
while(top_idQ!=BOTTOM_ID) 
{ 


(((SB_COMPONENT *)top_object())->keyword_dictionary())->add(pop_idQ); 
Ie 
pop_id(); // remove the bottom_id 
i 


informal desc: 


{/*optional */} 
| 
DESCRIPTION 
TEXT_BLOCK 
{ 
char *the_text=new char(strlen(yytext)+1]; 
// put all but the opening { and closing } into the_text 
int 1; 
for(i=l;i< strlen(yytext)-1;i++) 


{ 


| 

the_text{i-1]=NULL; 

((SB_COMPONENT *)top_object())->informal_description())->append(the_text); 
delete the_text; 


the_text[i- 1]=yytext(i]; 


} 


formal_ desc: 


{ /*optional*/ } 
| 
AXIOMS 
TEXT_BLOCK 
{ 
char *the_text=new char(strlen(yytext)+ 1]; 
// put all but the opening { and closing } into the_text 
int 1; 
for(i=1lsi< strlen(yytext)- 1;1++) 


( 


) 
the_text(i-1]=NULL; 


the_text(i-1J=yytext(i]; 
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(((SB_COMPONENT *)top_object())->formal_description())->append(the_text); 
delete the_text; 


} 


operator: 


OPERATOR 
push_ID 


if(SB_COMPONENT_ADT_FLAG==TRUE) 

{ 
// concatonate the psdl_type name and the operator name to ensure 
// a unique name in the database for the new component 
char *component_name=new 
char[strlen(psdl_type_name)+ 
strlen(top_idQ)+2); 
Sstrcpy(component_name,psdl_type_name); 
Strcat(component_name,"."); 
Strcat(component_name,pop_idQ); 
push_object(new SB_ADT_OPERATOR(component_name)); 
delete component_name; 


push_object(new SB_OPERATOR_COMPONENT(pop_idQ)); 


operator_spec 


{ 
}; 


$$=pop_object(); 


operator_spec: 


SPECIFICATION 
operator_interface 
functionality 
END 


operator_interface: 
(/*empty */} 
| 
attribute 
req_trace 
operator_interface 


attribute: 


generic_attributes 


( 


Zag 


((SB_OPERATOR 


*top_object())->insert_generics((SB_TYPE_USAGE_DICTIONARY *)$1); 


? 


| 
input_attributes 


{ 


FE 
| 
output_attributes 


{ 


((SB_OPERATOR *)top_object())->add_inputs((SB_ID_DECL_DICTIONARY *)$1); 


((SB_OPERATOR *)top_object())-> 
add_outputs((SB_ID_DECL_DICTIONARY *)$1); 
} 
| 
state_attributes 
| 
exceptions_attributes 


((SB_OPERATOR *)top_object())-> 
add_exceptions((SB_EXCEPTION_DICTIONARY *)$1); 
}: 
| 
max_execution_attribute; 


req_trace: 
{/*empty*/} 
BY_REQ 
id_list 


generic_attributes: 
GENERIC 
push_new_SB_TYPE_USAGE_DICTIONARY 


list_of_type_decl 
{ 


}; 


$$=(SB_TYPE_USAGE_DICTIONARY *)pop_object(); 


input_attributes: 


INPUT 
push_new_SB_ID_DECL_DICTIONARY 
list_of_id_decl 


{ 
ie 


$$=(SB_ID_DECL_DICTIONARY *)pop_object(): 


output_attributes: 
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OUTPUT 
push_new_SB_ID_DECL_DICTIONARY 
list_of_id_decl 


{ 
le 


$$=(SB_ID_DECL_DICTIONARY *)pop_object(); 


state_attributes: 


STATES 
list_of_id_decl 


// through away the list of type decl since it is not used 
pop_object(); 

} 

INITIALLY 


initial_expression_list 


exceptions_attributes: 


EXCEPTIONS 
push_new_SB_EXCEPTION_DICTIONARY 
push_id_list_start 

id_list 


while(top_id(!=BOTTOM_ID) 
{ 


Ie 
pop_id(); // pop off the bottom marker 
$$=(SB_EXCEPTION_DICTIONARY *)pop_object(); 


((SB_EXCEPTION_DICTIONARY *)top_object())->add(pop_id()); 


Is 
max_execution_attribute: 
MAX_EXEC_TIME time; 


TeceR LiTERAL MICROSEC 
Serr LITERAL MS 
ee LITERAL SEC 
aaa MIN 
at HOURS; 


initial_expression_list: 
initial_expression_list 


ee 


initial_expression 
| 
initial_expression; 


initial_expression: 
TRUE 
| 
FALSE 
| 
INTEGER_LITERAL 
| 
REAL_LITERAL 
| 
STRING_LITERAL 
| 
ID 
| 
type_name 
ID 
| 
type_name 
ID 
‘(' initial_expression_list ')' 
| 
‘( initial_expression ')' 
| 
initial_expression 
log_op 
initial_expression 
liniual_expression 
rel_op 
initial_expression 
esd 
initial_expression 
| 
ge 
initial_expression 
| 
initial_expression 
bin_add_op 
initial_expression 
| 
initial_ expression 
bin_mul_op 
initial_expression 
| 
initial_expression 
EXE 
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initial_expression 
| 

NOT 
initial_expression 
| 

ABS 
initial_expression; 


log_op: 


NEQV; 


bin_add_op: 
a! 
| 


tt 


| 
"&': 


bin_mul_op: 
Foet 


char *new_id=new char{strlen(yytext)+ 1]; 
strcpy(new_id,yytext); 
push_id(new_id); 
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push_new_SB_EXCEPTION_DICTIONARY: 
( 


iF 


push_object(new SB_EXCEPTION_DICTIONARY(Q); 


push_new_SB_TYPE_USAGE_DICTIONARY: 
{ 
iF 


push_object(new SB_TYPE_USAGE_DICTIONARY(O); 


push_new_SB_ADT_OPERATOR_DICTIONARY: 
{ 
); 


push_object(new SB_ADT_OPERATOR_DICTIONARY(); 


push_id_list_start: 
{ 
i 


push_id(BOTTOM_ID), 
push_new_SB_ID_DECL_DICTIONARY: 
{ 
IE 


%o% 


push_object(new SB_ID_DECL_DICTIONARY(); 


/* define the id stack and the object pointer stack */ 


typedef struct OBJECT_STACK_RECORD 
{ 
void *object_point; 
OBJECT_STACK_RECORD *next_record; 
} OBJECT_STACK_RECORD; 


typedef struct ID_STACK_RECORD 

{ 
char *id; 
ID_STACK_RECORD *next_record; 
} ID_STACK_RECORD; 


typedef struct NAME_STACK_RECORD 
{ 

char *name; 

NAME_STACK_RECORD *next_record; 
} NAME_STACK_RECORD; 


char BOTTOM_ID_MARKER[2]="#"; /* used as a bottom of id_list marker */ 
char *BOTTOM_ID=(char *)BOTTOM_ID_MARKER; 


OBJECT_STACK_RECORD “*top_object_in_stack=NULL; 
ID_STACK_RECORD *top_id_in_stack=NULL; 
ID_STACK_RECORD *top_rid_in_stack=NULL; 
NAME_STACK_RECORD *top_name_in_stack=NULL; 


void push_object(void *new_object) 

{ 
OBJECT_STACK_RECORD *new_object_record=new OBJECT_STACK_ RECORD; 
new_object_record->object_point=new_ object; 
new_object_record->next_record=top_object_in_stack; 
top_object_in_stack=new_object_record; 


}; 


void *top_object() 

{ 
void *return_object=NULL; 
if(top_object_in_stack!=NULL) 


return_object=top_object_in_stack->object_point; 


cerr << "error in object Stack tried to view top object that was null\n"; 
is 
retumm return_object; 


ri; 


void *pop_object() 
{ 

void *return_object=NULL; 

OBJECT_STACK_RECORD *temp_point=top_object_in_stack; 

if(top_object_in_stack!=NULL) 

{ : 
return_object=top_object_in_stack->object_point; 
top_object_in_stack=top_object_in_stack->next_record; 
delete temp_point; 

} 


else 


( 
, 


return return_object; 


); 


cerr << "PARSER: error in object stack read past end\n"; 


void push_rid(char *new_id) 


ID_STACK_RECORD *new_id_record=new ID_STACK RECORD; 
new_id_record->id=new_id; 


> 


new_id_record->next_record=top_md_in_stack; 
top_rid_in_stack=new_id_record; 


ie 


char *top_ridQ) 

{ 
char *retum_id=NULL; 
if(top_rid_in_stack!=NULL) 
( 


is 
return return_id; 


ie 


return_id=top_rid_in_stack->id; 


char *pop_nd() 
{ 
char *return_id=NULL; 
if(top_rid_in_stack!=NULL) 
{ 
retum_id=top_rid_in_stack->id; 
ID_STACK_RECORD *temp_point=top_mid_in_stack; 
top_rid_in_stack=top_rid_in_stack->next_record; 
delete temp_point; 


else 


{ 
ie 


return return_id; 


Ie 


cerr << "PARSER: error in rid stack read past end\n"; 


void push_id(char *new_id) 

{ 
ID_STACK_RECORD *new_id_record=new ID_STACK_RECORD; 
new_id_record->id=new_1id; 
new_id_record->next_record=top_id_in_stack; 
top_id_in_stack=new_id_record; 


ie 


char *top_idQ 
char *return_id=NULL; 
if(top_id_in_stack!=NULL) 
{ 


return_id=top_id_in_stack->id; 


cerr << "PARSER: error in id stack looked at NULL record\n"; 
: 


return return_id; 
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iE 
char *pop_idQ) 
{ 


char *return_id=NULL; 

if(top_id_in_stack!=NULL) 

{ 
return_id=top_id_in_stack->id; 
ID_STACK_RECORD *temp_point=top_id_in_stack; 
top_id_in_stack=top_id_in_stack->next_record; 
delete temp_point; 


cerr << "PARSER: error in id stack read past end\n"; 


return return_id; 


}; 


ey 


APPENDIX D - INTEGRATING ADA 
COMPONENTS INTO CAPS 


Once a reusable component has been retrieved it must be transformed for use in the 
prototype being developed. As previously discussed, this requires that the names for 
parameters, streams, operators, and types be changed to match those of the query 
component. Along with this transformation the execution support system expects several 
naming conventions to be followed for Ada components. This appendix will discuss how 
an Ada reusable component can be transformed into the domain of the query component 
as well as the naming conventions the execution support system expects for Ada 


components. An example of the transformation process is also included. 


A. ADA REUSABLE COMPONENT NAMING CONVENTIONS 


The execution support system requires that all Ada reusable components are 
implemented via packages. To simplify the process of identifying package names the 
following conventions are used. 

1. Operators 

An operator with an ID of operator_name will be implemented in a package 
named operator_name_pkg. The operator itself will be implemented by the procedure 


operator_name_pkg.operator_name. 
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2. Types 
A PSDL type with an ID of psdl_type_name will be implemented in a package 


named psdi_type_name_pkg. 


B. EXAMPLE 


1. Query Specification 


type integer_set 
specification 


integer_set : ADT 


operator create 


specification 
output 
the_set : integer_set 
end 
operator insert 
specification 
input 
X ! integer, 
in_set : integer_set 
output 
out_set : integer_set 
end 
operator remove 
specification 
input 
X : integer, 
in_set : integer_set 
output 
out_set : integer_set 
end 
operator member 
specification 
input 
X : integer, 
in_set : integer_set 
output 
result : boolean 
end 
end 
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2. Library Specification Located As A Match 


Lype set 
specification 
generic t: GENERIC_TYPE, 
block_size : GENERIC_VALUE, 
eq : GENERIC_PROCEDURE 


set: ADT 


operator empty 


specification 
output 
S: set 
end 
Operator add 
specification 
input 
xorte 
Sierset 
output 
SO : set 
end 


operator remove 


specification 
input 
Ker; 
SI: set 
Output 
sO: set 
end 


Operator member 


specification 
input 
x 6; 
S 2 Sel 
output 
v : boolean 
end 
operator union 
specification 
input 
Sl,s2: set 
output 
So sce 
end 
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operator difference 


specification 
input 
S152) Set 
Output 
S3 : set 
end 


operator intersection 


specification 
input 
Sl,s2 : set 
output 
s3 : set 
end 
operator size 
specification 
input 
Seesel 
output 
v : natural 
end 
operator equal 
specification 
input 
s1,s2 : set 
Output 
v : boolean 
end 
operator subset 
specification 
input 
s1,s2 : set 
output 
v : boolean 
end 
keywords SET 


description { SET ADT WITH OPERATIONS FOR EMPTY, ADD, SUBSET, EQUAL } 
end 
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3. Matching Map 


TYPE set -> integer_set 
MAP 
set -> integer_set 


GENERIC 
t -> integer 
eq -> UNDEFINED 


OPERATOR empty -> create 
MAP 
OUTPUT 
S : set -> new_set : integer_set 
END 


OPERATOR add -> insert 


MAP 
INPUT 
xX: t-> x 2 mteger 
S1 : set -> In_set : integer_set 
OUlFUT 
sO : set -> Out_set : integer_set 
END 


OPERATOR remove -> remove 


MAP 
INPUT 
X:t->xX : integer, 
Sl : set -> In_set : integer_set 
OUTPUT 
SO : set -> Out_Set : integer_set 
END 


OPERATOR member -> member 


MAP 
INPUT 
X:t-> xX: integer, 
Sl: set -> IN_set : Integer_set 
OUTPUT 
v : boolean -> result : boolean 
END 
END 


The grammar that defines this mapping language is included in this Appendix. 
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4. Generated Ada Code 
From this matching map the following Ada specification and implementation 


can be generated to implement integer_set. 


C. ADA SPECIFICATION 


with sb_set_pkg; 
package integer_set_pkg is 
type integer_set 1s private; 


procedure create(new_set : out integer_set); 


procedure insert(x : in integer; 
in_set : in integer_set; 
Out_set : Out integer_set); 


procedure remove(x : in integer; 
in_set : in integer_set; 
Out_set : Out integer_set); 


procedure member(x : in integer; 
in_set : in integer_set; 
result : out boolean); 


private 
package sb_set_pkg_to_integer_set_pkg is new sb_set_pkg(integer, UNDEFINED); 
integer_set is subtype sb_set_pkg_to_integer_set_pkg.set; 

end integer_set_pkg; 
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D. ADA IMPLEMENTATION 


package body integer_set_pkg is 


procedure create(new_sSet : out integer_set) 1s 
begin 

sb_set_pkg_to_integer_set_pkg.emply(new_set); 
end; 


procedure insert(x : in integer; 
in_Set : in integer_set; 
Out_set : Out integer_set) 1s 
begin 
sb_set_pkg_to_integer_set_pkg.insert(x,in_set,out_set); 
end; 


procedure remove(x : in integer; 
in_Set : in integer_set; 
Out_set : Out integer_set) is 
begin 
sb_set_pkg_to_integer_set_pkg.remove(x,in_set,out_set); 
end; 


procedure member(x : in integer; 
in_set : in integer_set; 
result : out boolean) is 
begin 
sb_set_pkg_to_integer_set_pkg.member(x, in_set,result); 
end; 
end integer_set_pkg; 
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PSDL MATCHING MAP GRAMMER (YACC INPUT FORMAT) 


%start psdi_map 
%token IDOPERATOR MAPS_TO MAP END TYPE GENERIC COMMA INPUT OUTPUT 
%token COLON UNDEFINED 


Jo %o 


psdl_map: 
operator_map 
| 


type_map 


operator_map: 
OPERATOR 
library_id 
MAPS_TO 
query_id 
MAP 
operator_attributes 
END 


type_map: 
ay PE 
library_id 
MAPS_TO 
query_id 
MAP 
type_attributes 
END 


type_attributes: 
adt_map_list 
generic_map_list 
operator_map_list 


adt_map_list: 
{/*OPTIONAL*/} 
| 
map_type_list 


generic_map_list: 
{/*OPTIONAL*/} 
| 
GENERIC 


map_type_list 


3) 


operator_map_list: 
operator_map_list 
COMMA 
operator_map 
| 
Operator_map 


operator_attributes: 
generic_map_list 
input_map_list 
Output_map_list 
excepuion_map_list 


input_map_list: 
(/*OPTIONAL*/} 
| 
INPUT 
map_decl_list 


Output_map_list: 
{/*OPTIONAL*/} 
| 
OUTPUT 
map_decl_list 


excepuion_map_list: 
(/*OPTIONAL*/} 
| 
EXCEPTION 
map_exception_list 


map_decl_list: 
map_decl_list 
COMMA 
map_decl 
| 
map_decl 


map_decl: 

library_id 
COLON 
library_type_id 
MAPS_TO 
query_id 
COLON 
query_type_id 
| 

library_id 
MAPS_TO 
UNDEFINED 
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map_type_list: 
map_type_list 
COMMA 
map_type 
| 


map_type 


map_type: 
library_type_id 
MAPS_TO 
query_type_id 
| 
library_type_id 
MAPS_TO 
UNDEFINED 


map_exception_list: 
map_excepuon_list 
COMMA 
map_exception 
| 
map_exception 


map_exception: 
library_id 
MAPS_TO 
query_id 
| 
library_id 
MAPS_TO 
UNDEFINED 
| 
UNDEFINED 
MAPS_TO 
query_id 


library_id: 
id 


query_id: 
id 


library_type_id: 
id 


query_type_id: 
id 


id: 
ID 


Zo 


APPENDIX E - COMMAND LINE INTERFACE 
SPECIFICATION 


The software base has been implemented with a command line interface to simplify 
its integration into CAPS. This Appendix provides a detailed specification of the 
command line interface for the software base. 

The following is a list of the software base commands available and how to used 
them. Each command is prefixed by the name of the software base executable (i.e. 


caps_software_base). 


A. MAKE NEW SOFTWARE BASE LIBRARY 


1. Command 
ml library_name type_matching_rule_file 
2. Description 
Creates a new reusable component library within the software base named 
library name using the type matching rules specified in_ the file 
type_matching rule file. See Appendix A for a description of the contents of the type 
matching rule file. 
3. Example 


%ocaps_software_base ml Ada Ada_rule_file 
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B. DELETE SOFTWARE BASE LIBRARY 


1. Command 
dl library_name 
2. Description 
Deletes the library library name from the software base and all of the 
components in this library. 
3. Example 


Yocaps_software_base dl Ada 
C. ADD A COMPONENT TO A SOFTWARE BASE LIBRARY 


1. Command 
ca library_name psdl_file imp_spec imp_body 
2. Description 
Adds the component specified in psdl_file to the library named library_name. 
The implementation source code is in the files imp_spec and imp_body. 
3. Example 


Yocaps_software_base ca Ada sb_set.psdl sb_set.spec.a sb_set.body.a 
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D. DELETE A COMPONENT FROM A SOFTWARE BASE LIBRARY 


1. Command 
cd library_name component_name 
2. Description 
Deletes the component named component_name from the library named 


library name. 


E. UPDATE A COMPONENT IN A SOFTWARE BASE LIBRARY 


1. Example 
%ocaps_software_base cd Ada sb_set 
2. Command 
cu library_name psdl_file imp_spec imp_body 
3. Description 
Update the existing component specified in psdl file with the new 
specification given in psdl_file and the new implementation given in the files imp_spec 
and imp_ body. 
4. Example 


Yocaps_software_base cu Ada set.psdl new_set.spec.a new_set.body.a 
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F. VIEW A COMPONENT IN A SOFTWARE BASE LIBRARY 


1. Command 
cv library_name component_name sb_set.psdl sb_set.spec.a sb_set.body.a 
2. Description 
Generate text files for viewing the component component_name which is in 
library library name. The text is written to the files specified by psdl_file, imp_spec, 
imp_body. 
3. Example 


%caps_software_base cv Ada sb_set.psdl sb_set.spec.a sb_set.body.a 
G. LIST OF KEYWORDS IN A SOFTWARE BASE LIBRARY 


1. Command 
kwl library_name output_file 
2. Description 
Generate a list of keywords defined in library library name. This list is 
provided to allow the formulation of keyword queries or when selecting keywords for a 
new component. The list of keywords is written to the file output_file. 
3. Example 


%caps_software_base kwl Ada keyword_list 
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H. LIST OF COMPONENTS IN A SOFTWARE BASE LIBRARY 


1. Command 
cl library_name output_file 
2. Description 
Generate a list of component names defined in library library_name. This list 
can be used for named look up of components in the software base. The list is written to 
the file output _file. 
3. Example 


Yocaps_software_base cl Ada component_list 


I. LIST OF PSDL TYPES IN A SOFTWARE BASE LIBRARY 


1. Command 
tl library_name output_file 
2. Description 
Generate a list of PSDL type components defined in library library_name. 
This list can be used for named look up of type components in the software base. The 
list is written to the file output_file. 
3. Example 


Yocaps_software_base tl Ada type_list 
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J. LIST OF PSDL OPERATORS IN A SOFTWARE BASE LIBRARY 


1. Command 
ol library_name output_file 
2. Description 
Generate a list of PSDL operator components defined in_ library 
library name. This list can be used for named look up of components in the software 
base. The list is written to the file output_file. 
3. Example 


%ocaps_software_base ol Ada operator_list 


K. KEYWORD QUERY 


1. Command 
kwq library_name keyword_list Output_file 
2. Description 
Perform a keyword query on library library_name using the keywords in the 
file keyword_list and write the output to output file. The output file contains the 
component name, the percentage of keywords matched, and the first line of the 
description of the component. 
3. Example 


Yocaps_software_base kwq Ada query_keyword_list result_list 
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L. COMPONENT QUERY 


1. Command 
cq library_name psdl_file output_file 
2. Description 
Performs a query by specification on the library library_name using the 
PSDL specification in psdl_file for the query. Writes the output to output file. The 
output file contains the name of the component, the percentage score from semantic 
matching, and the first line of the description for the component. 
3. Example 


%caps_software_base cq Ada query.file result_file 
M. GENERATE MATCHING MAP 


1. Command 
cgm library_name psdl_file component_name output_file 
2. Description 
Generate a matching map of how the component component_name matches 
the PSDL specification in psdl_ file and writes the map to the file output_file. This 
function is currently not implemented. 
3. Example 


Yocaps_software_base cgm Ada query.psdl result_file 
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N. COMPONENT DIAGNOSTICS 


1. Command 

cdiag library_name component_name output_file 
2. Description 

Creates a text file that contains diagnostic information about the component. 
3. Example 


%caps_software_base cdiag Ada sb_set 
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APPENDIX F - CAPS SOFTWARE BASE 
GRAPHICAL USER INTERFACE USERS 
MANUAL 


A. BASIC MOUSE TECHNIQUES 


1. Clicking 
Clicking the mouse means moving the cursor to the desired location and 
pressing the left mouse button and then releasing it. 
2. Double Clicking 
Double clicking means clicking the mouse on an item twice in rapid 
succession. This technique is often used to select an item from a list of items. 
3. Dragging 
Dragging and item is accomplished by moving the cursor to the desired item 
and pressing the left mouse button. While holding the button down the item can be 
moved (dragged) to the desired location. To complete the operation simply release the 
mouse button. 
4. Push Buttons 
A button is pushed by clicking the left mouse button while the mouse cursor is 


over the button. Pushing a button will cause the labeled action to take place. 


246 


5. Pull Down Menus 
A pull down menu is selected by clicking the left mouse button on the menu 
title and holding the button down. A list of the available options for this menu will be 
displayed. To select one of the available options move the mouse to the option (a 
highlighted bar will follow the mouse) and let up on the mouse button. Letting up on the 
mouse button anywhere outside of the pull down menu's option list will take no action. 


6. Scrolling 
1. Click on scroll bar arrows to scroll display one line in the desired direction. 


2. Click above or below the scroll bar display icon to move up or down a page of 
information. 


3. Drag the scroll bar display icon to the desired position in the view. 


4. Use the middle mouse button to get the "Grabber Hand" which can be used to 
move the display. This method can be used on all scrolling views even if there is 
no scroll bar. This is useful for string editors that have no scroll bars. 

7. Sizing Windows 
All of the windows in the Software Base user interface have been designed to 
allow resizing to user preferences. The method used to resize a window depends on the 
version of X11 window manager that is in use. The examples in this manual are for the 
OpenWindows manager. 


To resize a windows, In OpenWindows, simple drag any corner of the window 


in the desired direction and the window will be resized. 


B. STARTING THE SOFTWARE BASE GRAPHICAL USER INTERFACE 


The Software Base graphical user interface is started by executing the command 
softbase.exe from the command line. The path for the CAPS executables must be in your 
path. Currently you must be either working on suns5 or rxterm'ed to suns5 to use this 
interface. This is due to the requirement that the Interviews 3.0 libraries must be 
mounted for the interface to execute. These libraries are currently only mounted on 


suns. 


C. CAPS SOFTWARE BASE MAIN MENU (FIGURE F.1) 


The CAPS Software Base main menu is the top level of the Software Base 
Browsing System. From here all options of the Software Base are available. These 
options are to add new components, update existing components, delete components, 
browse by keyword, browse operators, browse types, query for a given specification, 
and get on-line help (The help system is currently not implemented). 

These options are organized into four categories: File, Browse, Query, and Help. 
These categories make up the main menu for the system. 

1. File 

The file option is a pull down menu of operations. These operations are Add 
Component, Update Component, and Quit. See section A.5 for details on how to select 


pull-down menu items. 
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CAPS SOFTBASE 


File Browse Query 





Figure - F.1 Main Menu 
a. Add Component 

When this option is chosen the user will be prompted for the input files 
by the input file selection window. See section D for a detailed description of how to use 
this window. 

Once the input files have been selected the system attempts to add the 
component to the software base. If an error occurs an error display will be provided. If 
no errors have occurred the input window will be removed from the screen to indicate a 
successful addition. 

b. Update Component 

This option is used to provide an updated version of an existing 
component. The method used is the same as for adding components except that the new 
PSDL specification and implementation files will replace those that are currently in the 


software base. 


c. Quit 
This option quits the Software base Browsing system. 
2. Browse 
The browse option is a pull-down menu of browsing operations. These 
operations are By Keyword, By Operator, and By Type. See section I for details on how 
to select pull-down menu items. 
a. By Keyword 

Browsing by keyword means that the user will provide a list of desired 
keywords via the Keyword Selection Window and then will be given a Component 
Selection Window containing of those components in the software base which are 
members of at least one of those keyword categories. 

The contents of the Component Selection Window are ordered such that 
those components which are members of more of the desired keyword categories are 
first. See section E for more information on using the Keyword Selection Window and 
section F for use of the Component Selection Window. 

b. By Operator 

Browsing by operator provides a Component Selection Window 
containing all of the Operator components in the software base. These components are 
ordered alphabetically. See section F for details of how to use the Component Selection 


Window. 
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c. By Type 
Browsing by operator provides a Component Selection Window 
containing all of the type components in the software base. These components are 
ordered alphabetically. See section F for details of how to use the Component Selection 
Window. 
3. Query 
The query option allows for a query of the software base based on a given 
PSDL specification. The user is prompted for a query specification with the Query 
Specification Window. If any components were found that match the query specification 
then a Component Selection Window is provided with all of the names of the matches in 
it. See section VII for details on the Component Selection Window. 
4. Help 


This option provides an on-line version of this manual (not implemented). 
D. INPUT FILE SELECTION WINDOW (FIGURE F.2) 


Inputs to the software base are made up of three text files. The PSDL specification, 
the implementation specification, and the implementation body. The input file selection 
window allows the selection of each of these files. 

The file selection boxes show the current working directory in the Directory Box, 
and all of the files in that directory in the rest of the box. Double clicking on a file in one 


of the file selection boxes selects that file. Double clicking on a directory in a file 


Zod 


selection box will change to that directory. A new directory can be entered manually by 
typing it in the Directory box. The name of the file can be entered manually by typing it 


into the File Name box. 


{7} CAPS SOFTBASE 


Input File Selection 


PSDL File a Spec ene Body 


qemini/vork/medovel mon emini/vork/mcdowell/demo/| @| | emin2/work/mcdowell/ demos] | 
ny iy wf i | 


integer_set.psdl 


integer_set.psdl 
integer_set_pkg.body.a pa cS 


integer_set_pkg.body.a 
integer_set_pkg.spec.a 


i 
a af i ee, te 
celsius_to_farenhiet .psdl lus to_ let. | celsius_to_farenhiet.psdl 
H I 
| 





Figure - F.2 Input File Selecter 
Once all of the input files have been entered pushing, OK will cause the input files 


to be processed. Pushing Cancel will cause the input operation to terminate. 
E. KEYWORD SELECTION WINDOW (FIGURE F.3) 


This window allows the selection of keywords for a keyword search of the software 
base. All keyword categories in the software base are list in the left hand Box. Double 
clicking on a keyword will add it to the Keyword Selected box on the nght hand side. 
Double clicking on keywords in the Selected box will remove them. Once the desired 
keywords have been selected pushing OK will start the search of the software base. 


Pushing Cancel will abort the search. 


td 
in 
tI 


softbase.exe 


Keyword Selection Menu 


Keywords Available Keywords Selected 


SET 
| eap 


data_structure 
its 718 





Figure - F.3 Keyword Selecter 
F. COMPONENT SELECTION WINDOW (FIGURE F.4) 


This window displays a list of component names and a one line description of each 
component. Double clicking on a Pipone nt will bring up a view of that components 
PSDL specification. See section VIII for details on using this view. This window is not 
removed automatically when a component is selected for viewing so that multiple 
components can be viewed simultaneously. To remove this window form the display 
push the cancel button. Pressing the OK button will view the currently selected 


component. 
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(z) CAPS SOFTBASE 


Component Selecter 


Component Name Desctnpton 


binary_insertian_sort Booch binary insertian sort 
buhble_sort Booch bubble sort 
celsius_to_farenhiet unit camversion fram c to f 
heap_ sort Booch heap sort 





Figure - F.4 Component Selecter 


G. PSDL SPECIFICATION VIEWING WINDOW (FIGURE F.5) 


This window displays the PSDL specification for a given component and allows 
various actions to take place on that component. The action available are: printing the 
specification, saving the specification to a file, deleting the component from the software 
base, viewing the components Ada specification, and searching for a given text string in 
the specification. 

l. File 

This is a pull-down menu for the print, save, delete, and quit view operations. 
a. Print 

Causes a printout of the specification to be spooled to the default printer. 
b. Save As 


Prompts the user for a file name and saves the specification to that file. 


c. Delete 
The system verifies that no other components are dependant on this 
component and if not allows the user to confirm that they wish to remove this component 
from the software base. 
d. Quit View 


Removes this view from the display. 







CAPS SOFTBASE 
aPSDOL Specification 





















Viewing set 
File Find View Spec 
‘||Itype set_pkg 
specification 
generic t : GENERIC_TYPE, 
block_size : GENERIC_VALUE, 
eq : GENERIC_PROCEDURE 





set : ADT 





operator empty 

specification 
output s : set 

end 






operator add 
specification 
input x : t, $1 : set 





operator remove 
specificatian 








PigePAS PSB SpeRitication Viewitf Window 
2. Find 
Prompts for text to search for and if found repositions the cursor to that text 
(not implemented). 
3. View Ada Specification 


Provides the Ada Specification Viewing Window for this component. 


H. ADA SPECIFICATION VIEWING WINDOW (FIGURE F.6) 


This window displays the Ada specification for a given component and allows 
various actions to take place on that component. The action available are: printing the 
specification, saving the specification to a file, viewing the components Ada body, and 


searching for a given text string in the specification. 


CAPS SOFTBASE 


: Viewing set pkgimplementation Specification 


Fale Find View Body 
with text_io; use text_io; 


generic 

type t 13 private; 

block_size: in natural: 128; 

with procudure eq(x.y: in t, v : BOOLEAN): 
package sb_queue is 


type queue is private; 
type index_array is array(natural range <>) of natural; 


procedure empty(s: out set); 

procedure add(x: in t; 31: 1n set, so : out set); 
procedure remove(x: 1n t; 3: in out set); 

procedure member(x: 1n t; s: 1m set, v_: boolean); 
procedure unian(sl, 32: in set; s3: out set); 
procedure difference(sl, s2: in set; s3: out set); 
procedure intersectian(sl, s2: 1n set; s3: out set); 
procedure size(s: in set, v : out natural); 


procedure equal(sl, 32: in set, v : out boolean); 





l. File 
This is a pull-down menu for the print, save, and quit view operations. 
a. Print 


Causes a printout of the specification to be spooled to the default printer. 


b. Save As 


Prompts the user for a file name and saves the specification to that file. 
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c. Quit View 
Removes this view from the display. 
2. Find 
Prompts for text to search for and if found repositions the cursor to that text 
(not implemented). 
3. View Ada Body 


Provides the Ada Body Viewing Window for this component. 


I. ADA BODY VIEWING WINDOW (FIGURE 7) 


This window displays the Ada body for a given component and allows various 
actions to take place on that component. The action available are: printing the body, 
saving the body to a file, and searching for a given text string in the body. 

I. File 

This is a pull-down menu for the print, save, and quit view operations. 
a. Print 

Causes a printout of the body to be spooled to the default printer. 
b. Save As 

Prompts the user for a file name and saves the body to that file. 
c. Quit View 


Removes this view from the display. 


257, 


2. Find 


Prompts for text to search for and if found repositions the cursor to that text 


(not implemented). 
CAPS SOFTBASE 


with unchecked_deallocatian: 
with lookahead _pkg; use loakahead_pkg: 
with delimiter_pkg; use delimiter pkg; 


— generic 
~— type t 1s private; 
— block_size: in natural := 128; 
— vith procedure eq(x, y: in t. v : boolean); 


package body set_pkg 1s I 
recytie_list: link := mil; -— ihe recycle list for recycling stot 
nodes_in_recycle_list: natural := 0; — The length of the recycle! - 
nodes_in_use: natural := 0; -- The mmber of set heap nodes in us| .. 
-- Invariant: nodes_in_recycle_list = length(recycle_list) <= node}. ; 


— Local subprogran declarations. 


function create(sz: natural; e: elements_type; next: link) return} - 


procedure recyctle(s: set): 
fumctian token return character; 





Figure - F.7 Ada Body Viewing Window 
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APPENDIX - G SOFTWARE BASE GRAPHICAL 
USER INTERFACE SOURCE CODE 


All of the classes with the extension of "-core" in their name are implemented with 
code generated by the ibuild tool which is part of InterViews 3.0b [Ref 19]. This code is 
not presented here since it was machine generated. The class definitions for these "core 
classes" are included since the leaf classes inherit from the "core classes". Ibuild 
generated skeletons for the leaf classes. All that was required to implement this GUI was 


the addition of the code for each of the leaf class methods. 


oo 


#ifndef SB_main_menu_core_h 
#define SB_main_menu_core_h 


#include <InterViews/scene.h> 
class Menultem; 


class SB_main_-menu_core : public MonoScene { 
public: 
SB-main_menu-_core(const char*); 
virtual void -AddComponent(); 
virtual void _UpdateComponent(); 
virtual void quit(); 
virtual void browse_by_keyword(); 
virtual void browse_by_type(); 
virtual void browse_by_operator(); 
virtual void query(); 
virtual void _Help(); 
protected: 
Interactor+ Interior(); 
protected: 
Menultem* the.menu_-file_quit; 
Menultem* theamenu_browse_key word; 
Menultem+ the.menu_browse_type; 
Menultems* the_menu_browse_by _operator; 
Menultem+* themenu_query; 


#endif 
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#ifndef SB_main_menu_h 
#define SB_main_menu_h 


#include ”SB_main_menu-core.h’ 


class SB_main_menu : public SB-main_menwcore { 
public: 
SB_main_menu(const chars); 


virtual void AddComponent(); 
virtual void _UpdateComponent(); 
virtual void quit(); 

virtual void browse_by_keyword(); 
virtual void browse_by-_type(); 
virtual void browse_by_operator(); 
virtual void query(); 

virtual void _Help(): 


\s 


#Hendif 
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#ifndef body_viewer-_core h 
#define body_viewer_core_h 


#tinclude <InterViews/scene.h> 


class HBox; 

class Message; 

class MenuBar; 
class PulldownMenu; 
class TextEditor; 
class ButtonState; 


class body_viewer_core : public MonoScene { 
public: 

body-viewer_core(const char); 

virtual void _Saveas(); 

virtual void _Print(); 

virtual void _QuitView(): 

virtual void _Find(); ‘ 
protected: 

Interactor* Interior(); 
protected: 

HBoxs the_file_name; 

Message+ default_message; 

MenuBar* menu_bar: 

Pulldown Menus file-menu; 

TextEditor* the_editor; 


ji 


#endif 
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#Hifndef body_viewer_h 
#define body_viewer-_h 


#tinclude ”body_viewer-core.h” 


class body_viewer : public body_viewer-core { 
private: 

char+ the-string; 

char* component_name; 

TextBuffer «the_buffer; 


public: 
body-viewer(const char*xcomponent_name, char *body-file); 


virtual void Saveas(); 
virtual void _Print(); 
virtual void _Quit View(); 
virtual void _Find(); 


his 


#Hendif 
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#ifndef component-selecter_core h 
#define component-selecter-core h 


#include <InterViews/scene.h> 


class String Browser; 
class ButtonState; 
class PushButton; 


class component-selecter_core : public MonoScene { 
public: 
component-selecter-core(const char+); 
virtual void selected(); 
virtual void cancel(); 
virtual void okay(); 
protected: 
Interactor* Interior(); 
protected: 
ButtonState+ the-browser_BS; 
ButtonState* the_cancel_BS; 
ButtonState*x the-ok_BS; 
StringBrowser+ the_browser; 
PushButton* cancel_button; 
PushButton+ ok_button; 


he 


#endif 
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#ifndef component-selecterh 
#define component-selecter h 


#include ”component_selecter-core.h” 
#include <stream.h> 


class component-selecter : public component_selecter_core { 
public: 
component-_selecter(const char*); 


void Insert_components(); 

void Insert_components( char +file name); 
virtual void selected(); 

virtual void cancel(); 

virtual void okay(); 


is 


#endif 


#ifndef delete_warning-coreh 
#define delete_warning-coreh 


#include <InterViews/dialog.h> 
class ButtonState; 


class delete_warning-core : public Dialog { 
public: 
delete_warning-core(const char*); 


protected: 
Interactor* Interior(); 
protected: 


js; 


#Hendif 
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#ifndef delete_warning -h 
#define delete_warning_h 


#include "delete_warning-core.h” 
class delete_warning : public delete_warning_core { 


public: 
delete_warning(const char+); 


#Hendif 
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#ifndef dependancy -selecter core h 
#define dependancy-selecter core h 


tinclude <InterViews/scene.h> 


class Message; 
class StringBrowser; 
class ButtonState; 
class PushButton; 


class dependancy -selecter core : public MonoScene { 
public: 
dependancy-selecter core(const char+); 
virtual void new-selection(); 
virtual void remove-selection(); 
virtual void cancel(); 
virtual void okay(); 
protected: 
Interactor* Interior(); 
protected: 
ButtonState+ the-choice_BS; 
ButtonState« the_selected_BS; 
ButtonState* cancel_BS; 
ButtonState* okay_BS; 
Message+ the_name; 
Message* the_choice message; 
StringBrowser* choice_browser; 
Message* the-_selected message; 
StringBrowser* selected _browser; 
PushButtons* the_-cancel_button; 
PushButton* the_ok_button; 


ie 


#Hendif 
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#ifndef dependancy-selecter h 
#define dependancy selecter h 


#include "dependancy_selecter-core.h” 


class dependancy-selecter : public dependancy-selecter-_core { 
public: 
dependancy-selecter(const char*); 


void Insert components(); 
virtual void new-selection(); 
virtual void remove-selection(); 
virtual void cancel(); 

virtual void okay(); 


1B 


#endif 
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tHifndef error_viewer_core_h 
#tdefine error_viewer_core_h 


#include <InterViews/scene.h> 


class HBox; 

class Message; 
class TextEditor; 
class ButtonState; 


class error_viewer_core : public MonoScene { 
public: 

error_viewer-_core(const char); 

virtual void okaction(); 
protected: 

Interactor* Interior(); 
protected: 

ButtonStatex ok_BS; 

HBoxs the_file name; 

Message+ default_message; 

TextEditor* the_editor; 


#Hendif 
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#Hifndef error_viewer_h 

#define error_viewer _h 

#Hinclude <InterViews/textbuffer.h> 
#include ”"error_viewer-core.h” 


class error_viewer : public error_viewer-_core { 
private: 
TextBuffer *the_buffer; 
public: 
error_viewer(const charsname, char <error_file); 
void ok-_action(); 


ts 


#Hendif 
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#ifndef input_file_selecter_coreh 
#define input_file_selecter_core h 


#Hinclude <InterViews/scene.h> 


class StringEditor; 
class ButtonState; 
class FileBrowser: 


class input-_file_selecter_core : public MonoScene { 

public: 
input file_selecter_core(const char#); 
virtual void new_psdL file name(); 
virtual void update_pdsl_dir(); 
virtual void psdl-_selected(); 
virtual void new-_spec_file name); 
virtual void update_ada_spec-_dir(); 
virtual void spec_selected(); 
virtual void new_body-file_name(); 
virtual void update_ada_body_dir(); 
virtual void body-selected(); 
virtual void cancel(); 
virtual void okay(); 

protected: 
Interactor* Interior(); 

protected: 
ButtonState* psdl_file name_BS; 
ButtonState* psdl_dir_BS; 
ButtonState* psdl_BS; 
ButtonState* spec file name_BS; 
ButtonState* ada_spec_dir_BS; 
ButtonState* spec_files_BS; 
ButtonState* body-filename_BS; 
ButtonState* ada_body_dir_BS; 
ButtonState* body _files_BS; 
ButtonState+ cancel_BS; 
ButtonState+ okay_BS; 
StringEditor* psdl_file_name; 
StringEditor* psdl_dir; 
FileBrowser* psdl_files; 
StringEditor* spec_file name; 
StringEditar* ada_spec-dir; 
FileBrowser* spec_-files; 
StringEditor+ body-file_name; 
StringEditor+ ada_body dir; 
FileBrowser* body files; 


i 


#tendif 


i 2 


#ifndef input_file_selecter_h 
#define input_file_selecter_h 


#include ”input_file_selecter-core.h” 


class input_file_selecter : public input_file_selecter_core { 
public: 
input_file_selecter(const char*); 


virtual void new-_psdl file name(); 
virtual void update_pdsl_dir(); 
virtual void psdlselected(); 
virtual void new-spec-_file_name(); 
virtual void update_ada_spec_dir(); 
virtual void spec-_selected(); 
virtual void new_body_file.name(); 
virtual void update_ada_body_dir(); 
virtual void body-selected(); 
virtual void cancel(); 

virtual void okay(); 


is 


#endif 
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#ifndef keyword-selecter-core h 
#define keyword-selecter_core h 


#tHinclude <InterViews/scene.h> 


class Message; 
class String Browser; 
class ButtonState; 
class PushButton; 


class keyword-selecter_core : public MonoScene { 
public: 
keyword -selecter core(const charx); 
virtual void new-selection(); 
virtual void remove-selection(); 
virtual void cancel(); 
virtual void okay(); 
protected: 
Interactor* Interior(); 
protected: 
ButtonState* the_choice_BS: 
ButtonState« the_selected _BS:; 
ButtonState* cancel_BS: 
ButtonState« ok_BS; 
Messagex the_name; 
Message+ the_choice_message; 
String Browser* choice_browser; 
Message+ the_selected message; 
StringBrowser* selected browser; 
PushButtons* the_cancel_button; 
PushButton* the_ok_button: 


i 


tHendif 





#ifndef keyword-selecterh 
#define keyword-selecter h 


#Hinclude "keyword_selecter-core.h’” 


class keyword-selecter : public keyword_selecter_core { 
public: 
keyword -selecter(const char*); 


void Insert key words(); 

virtual void new-selection(); 
virtual void remove-selection(); 
virtual void cancel(); 

virtual void okay(); 


#endif 


#ifndef psdl_viewer-_core-h 
#define psdl_viewer_coreh 


#include <InterViews/scene.h> 


class HBox; 

class Message; 

class MenuBar; 
class PulldownMenu; 
class Menultem; 
class TextEditor; 
class ButtonState; 


class psdl_viewer_core : public MonoScene { 
public: 

psdl_viewer_core(const char+); 

virtual void _Saveas(); 

virtual void _Print(); 

virtual void _Delete(); 

virtual void _Quit View(); 

virtual void _Find(); 

virtual void view_spec_action(); 
protected: 

Interactor* Interior(); 
protected: 

HBoxs the_file name; 

Message* default_message; 

MenuBar* menu_bar; 

PulldownMenus file.menu; 

Menultem* view-spec; 

TextEditor* the_editor;: 


ie 


#endif 
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#ifndef psdl_viewer_h 
#define psdl_viewerh 


#include ’psdl_viewer-core.h” 
#include <InterViews/textbuffer.h> 


class psdl_viewer 


{ 


private: 


char 
char 
char 
char 
char 


: public psdl_viewer_core 


*component_name; 
+psdl_file; 

«spec _file; 

«body _file; 


+the_string; 


Text Buffer *the_buffer; 


public: 


psdl_viewer(const chars); 


virtual void Saveas(); 

virtual void _Print(); 

virtual void _Delete(); 

virtual void _Quit View(); 
virtual void _Find(); 

virtual void view_spec_action(); 
virtual void Handle(Event&); 


#tendif 


| 


#ifndef query _file_dialog_core_h 
#define query file_dialog_core_h 


#include <InterViews/dialog.h> 


class StringEditor; 
class ButtonState; 
class FileBrowser; 


class query-file-dialog_core : public Dialog { 
public: 
query -file_dialog_core(const char); 


virtual void file name_action(); 
virtual void directory_action(); 
virtual void file browser_action(); 
virtual void cancel_action(); 
virtual void okay-action(); 
protected: 
Interactor+ Interior(); 
protected: 
ButtonState* dialog_BS; 
ButtonState* thefilename_BS; 
ButtonStatex directory_name_BS; 
ButtonState* file-browser_BS; 
ButtonState* cancel_BS; 
ButtonState* okay_BS; 
StringEditor* the_file name; 
StringEditor* directory_name; 
FileBrowser* the_file_browser; 


hi 


#endif 
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#ifndef query -file_dialog_h 
#define query -file_dialog_h 


#include ”query_file_dialog-core.h’ 


class query file_dialog : public query_file_dialog_core { 
public: 
query -file_dialog(const char*); 


virtual void file-name_action(); 
virtual void directory_action(); 
virtual void file. browser_action(); 
virtual void cancel_action(); 
virtual void okay-action(); 

const char file name(); 


Ip 


tendif 
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#ifndef save_browser _dialog-core h 
#define save_browser dialog-core h 


#include <InterViews/dialog.h> 


class StringEditor; 
class ButtonState; 
class FileBrowser; 


class save_browser -dialog_core : public Dialog { 
public: 
save_browser-dialog_core(const chars); 


virtual void update_file_name(); 
virtual void update_directory(); 
virtual void file browser_action(); 
virtual void cancel_action(); 
virtual void okaction(); 
protected: 
Interactor* Interior(); 
protected: 
ButtonState+ dialog_BS; 
ButtonStatex file name_BS; 
ButtonStatex new _directory _BS: 
ButtonStatex file_browser_BS; 
ButtonState* cancel_BS; 
ButtonState+ ok_BS; 
StringEditor+ the_file name; 
StringEditor* the_directory name; 
FileBrowser* the_file_browser; 


if 


#endif 
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#ifndef save_browser -dialog h 
#define save_browser dialog _h 


#Hinclude ”save_browser_dialog-core.h” 


class save_browser _dialog : public save_browser-_dialog_core 
private: 
char +*default_name; 


public: 
save_browser-dialog(const cliarxname); 


virtual void file. browser_action(); 
virtual void update_file_name(); 
virtual void update_directory(); 
virtual void cancel_action(); 
virtual void ok_action(); 

const char +filename(); 


i 


#endif 
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#ifndef spec_viewer_core h 
#define spec_viewer-_core h 


#tinclude <InterViews/scene.h> 


class HBox; 

class Message; 

class MenuBar; 
class PulldownMenu:; 
class Menultem; 
class TextEditor; 
class ButtonState; 


class spec_viewer-_core : public MonoScene { 
public: 
spec_viewer core(const char); 
virtual void Saveas(); 
virtual void _Print(); 
virtual void _Quit View(); 
virtual void _Find(); 
virtual void view_body-action(); 
protected: 
Interactor* Interior(); 
protected: 
HBox+* the_file name; 
Message+ default_message; 
MenuBar* menu_bar; 
PulldownMenus file-menu:; 
Menultem* view_body; 
TextEditor* the_editor; 


Me 


#fendif 





#ifndef spec_viewer-h 
#define spec_viewer h 


#tinclude ”spec_viewer-core.h” 


class spec_viewer : public spec_viewer_core { 
private: 

char *component_name; 

char *body-file; 

char *the_string; 

TextBuffer «the_buffer; 


public: 
spec_viewer(const char*component_name, charsspec_file, char *«body-file); 


virtual void Saveas(); 

virtual void _Print(); 

virtual void _Quit View(): 
virtual void _Find(); 

virtual void view_body_action(); 


i 


tendif 
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#Hinclude <InterViews/menu.h> 
#Hinclude ”SB_main_menu.h” 

#Hinclude <InterViews/button.h> 
#Hinclude <InterViews/interactor.h> 
#Hinclude <InterViews/2.6/_enter.h> 
#Hinclude <InterViews/world.h> 
#include ’keyword_selecter.h” 
#include "component_selecter.h” 
#include ”input_file_selecter.h” 
#Hinclude ”error_viewer.h’ 

#include <stream.h> 

#include <strstream.h> 

#include <stdlib.h> 

#Hinclude <string.h> 

#include "query-file_dialog.h” 


#define TEMP_ENVIRONMENT "TEMP" 
#define CAPS_ENVIRONMENT "CAPs" 
#define DEFAULT_TEMP "/tmp" 
#define TL_PREFIX "“tmptl" 

#define ERROR-PREFIX “tmperror" 
#define SB_PROGRAM "sb" 


SB_main_menu::SB_main_menu(const char* name) : SB_main_menu-core(name) {} 
void SB_main_menu::quit() 


World* w=Get World(); 
w—quit(); 


} 


void SB_main_menu::browse_by_keyword() 


{ 
World+ w=Get World(); 


keyword_selecter+ the _keyword-_selecter=new keyword -selecter("the key _word_selecter"); 


the keyword -selecter—Insert key words(); 
//the_keyword_selecter->SetName(” Keyword Selection”); 
w—Insert'Toplevel(the keyword selecter,this); 


} 


void SB_main_menu::browse_by_type() 
{ 
Worlds w=Get World(); 
component-selecter* component-selecter_by type=new 
component-selecter(''component_selecter_by_type"); 
// create list of components 
int command_-status; 
ostrstream command_buffer; 
ostrstream remove_buffer; 


char *caps_dir = getenv(CAPS_EN VIRONMENT); 

char *temp-_dir = getenv(TEMP_EN VIRONMENT); 

if (temp_dir == NULL) 

{ 
temp-_dir = new char[strlen(DEFAULT_TEMP) + 1]; 
strcpy(temp-_dir, DEFAULT_TEMP); 


}; 


command_buffer < SBLPROGRAM < " tl ada "; 
char *list_file = tempnam(temp_dir, TL.PREFIX); 
char *error_file = tempnam(temp_dir, ERROR_PREFIX); 
command_buffer < list_fle< " > " < error_file < ends; 


remove_buffer < "rm ": 
remove_buffer < error_file < ends; 


char #rm_command = remove_buffer.str(); 


char *command = command_buffer.str(); 


command_status=system(command); 


if (command_status==0) 


{ 


// no error occured so pass the tl to the component selecter 
component-_selecter_by type—Insert components(list file); 
w—InsertApplication(component_selecter_by type); 


} 


else 


{ 


// display error info 
cerr < “AN ERROR OCCURED WITH COMMAND “" < command < "\n"; 


}; 


// remove temp files 


system(rm_command); 


delete command; 
delete rm_command; 


void SB_main_menu::browse_by_operator() 


{ 


World* w=Get World(); 
component_selecter+ component-selecter_by _type=new 
component-selecter(""component_selecter_by_type"); 
// create list of components 
int command-_status; 
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ostrstream command_buffer; 
ostrstream remove_buffer; 





char *caps_dir = getenv(CAPS_ENVIRONMENT),; 
char +temp-_dir = getenv(TEMP_EN VIRONMENT); 
if (tempodin =— NU) 


temp-_dir = new char(|strlen(DEFAULT_TEMP) + 1]; 
strcpy(temp_dir, DEFAULT_TEMP); 


i 


command_buffer < SB_-PROGRAM <'" 01 ada "; 
char *list_file = tempnam(temp_dir, TL.PREFIX); 
char *error-file = tempnam(temp-_dir, ERROR_PREFIX); 
command_buffer < list_file< " > " < error_file < ends; 


remove_buffer < "rm "'; 
remove_buffer < error_file < ends; 


char *rm_-command = remove_buffer.str(); 


char *command = commanc_buffer.str(); 
command_status=system(command); 
if (command.status==0) 
{ 
// no error occured so pass the tl to the component selecter 
component_selecter_by type—Insert components(list file); 
w—InsertA pplication(component-selecter_by type); 


} 


else 


{ 


// display. error info 
cerr < "AN ERROR OCCURED WITH COMMAND " < command < "\n"; 


IP 


// remove temp files 
system(rm_command); 
delete command; 
delete rm_command; 


} 


void SB_main_menu::query() 


Worldtw=Get World(); 
query file_dialog* the_query -dialog=new 

query file _dialog("the_query_dialog"); 
w—Insert Transient(the_query -dialog,this); 
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boolean status_flag=the_query -dialog—Accept(); 
if(status_flag) 


w—sync(); 

int command_status; 
ostrstream command_buffer; 
ostrstream remove_buffer; 


char *caps_dir = getenv(CAPS_EN VIRONMENT); 
char *temp-dir = getenv(TEMP_ENVIRONMENT); 
if (temp_dir == NULL) 


temp_dir = new char{strlen(DEFAULT_TEMP) + 1]; 
strepy(temp-_dir, DEFAULT_TEMP); 


i 


command_buffer < SB-PROGRAM < '" cq ada "; 
char +list_file = tempnam(temp_dir, TL_.PREFIX); 
char ¥*error_file = tempnam(temp-dir, ERROR-PREFIX); 
command_buffer < the_query_dialog—filename() << " "; 
command_buffer < list_fle< " > " < error_file < ends; 


remove_buffer < "rm "; 
remove_buffer < error_file < ends; 


char *rm_command = remove_buffer.str(); 


char command = command_buffer.str(); 
command.status=system(command); 
if (command_status==0) 


{ 


// no error occured so pass the tl to the component selecter 


component-_selecter* component-selecter_by_query=new 
component-_selecter(""component_selecter_by_query"); 


component-selecter_by query—Insert components(list file); 
w—lInsert A pplication(component-selecter_by _query ); 


} 


else 
// display error info 
error_vlewer *error_view=new 
error_viewer("Add Component" error-file); 
w—InsertApplication(error_view); 


// remove temp files 
system(rm_command); 
delete command; 


delete rm.command; 


ie 
w— Remove(the_query-dialog); 
delete the_query _dialog; 


} 


void SB_main_menu::.AddComponent() { 
World* w=Get World(); 
input_file_selecter* in file=new input file-selecter("in_file"); 
w—InsertA pplication(in_file); 


} 


void SB-main_menu::_UpdateComponent() 


World+ w=Get World(); 
input_file_selecter* in file=new input file-selecter("in_file"); 
w—lInsertA pplication(infile); 


e 


void SB_main_menu::.Help() 


{ 
} 


system("doc -title ’Softbase Help’ softbasehelp.doc&"); 
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#Hinclude <InterViews/button.h> 
#tinclude <InterViews/box.h> 
#include <InterViews/message.h> 
#include <InterViews/menu.h> 
tinclude <InterViews/texteditor.h> 
#Hinclude <InterViews/textbuffer.h> 
#include ”’body_viewer.h” 

#include "spec_viewer.h” 

#include ’body_viewer.h” 

#include ”save_browser_dialog.h” 
#tHinclude <InterViews/world.h> 
#Hinclude <InterViews/2.6/_enter.h> 
#include <strstream.h> 

#include <stream.h> 

#Hinclude <stdlib.h> 

#include <string.h> 


body_viewer::body_viewer(const char+* name, char *body-file) : 
body_viewer_core(name) 
{ 


component_name=(char *)name; 

ostrstream view_name_buffer; 

view_name-_buffer < component_name < "Implementation Body" < ends; 
the file name— Remove(default_message); 

delete default_message; 


Message* the_filemessage=new Message("file_name", 
view_name-_buffer.str(), 
Center); 

the file name—Insert(the file_message); 

the file name—Change(); 


ifstream body(body file); 
if (body) 


ostrstream construct _buffer: 


while(!body.eof()) 


char text=body.get(); 
if( text ZEOF) 


construct_buffer.put(text); 
}s 
a 
the string=construct buffer.str(); 
int thelength=strlen(the string ); 


the_buffer=new Text Buffer(the string ,the length,the length); 
the editor— Edit(the_buffer); 


else 
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cerr < "UNABLE TO OPEN BODY FILE TO VIEW FILENAME IS ": 
cerr < body file < "\n"; 


i 


} 


void body_viewer::-Saveas() 
{ 
ostrstream def_name_buffer; 
defname_buffer < component_name < ".body.a" < ends; 
char +def_name=def_name_buffer.str(); 
save_browser dialog *save_browser=new save_browser -dialog(def_name); 
World «w=Get World(); 
w—lInsert Transient(save_browser,this); 
boolean save_flag=save_browser—Accept(); 


if(save_flag) 


ofstream output _file(save_browser—file name()); 
output_file < the-string; 
output _file.close(); 


Hs 


w— Remove(save_browser ); 
delete save_browser: 


} 


void body-viewer::_Print() { 
/* unimplemented */ 
j 


void body_viewer::_Find() { 
/* unimplemented */ 
} 


void body-viewer::_Quit View() 
{ ; 
// remove temp file and remove application from the world 
World «w=Get World(); 
w—Remove(this); 
//delete this; 
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#Hinclude <InterViews/button.h> 
#Hinclude <InterViews/strbrowser.h> 
#include ’component_selecter.h” 
#include <InterViews/2.6/_enter.h> 
#include <stream.h> 

#include <string.h> 

#Hinclude <InterViews/world.h> 
#include ’psdl_viewer.h” 

#include <strstream.h> 


extern "C"' 


{ 
}; 


#define MAX_NAME_LENGTH 256; 


int system(chiar *); 


component-selecter::component-_selecter(const char+ name) : component-selecter-_core(name) { } 


void component-selecter::selected() 
int state_value: 
the _browser BS—Get Value(state_value); 
if(state_valueZ0) 


World* w=Get World(); 
w—sync(); 
int selected index=the browser—Selection(0); 
if(selected index>0) 
{ 
char *selected_buffer=the browser— 
String(selected index); 
char *selected_name=new char[strlen(selected_buffer)+ 1]; 
int 1=0; 
whiile(selected_buffer[i]#’ ’) 
{ 
selected name[i]=selected buffer[i]; 
ie 
}; 
selected name[iJ=NULL,; 


psdl_viewer* the_psdl_view=new 
psdl_viewer(selected name); 
w—Insert Application(the_psdl view); 


} 


else 


{ 


}; 
the_browser _BS—Set Value(0):; 


w— Ring Bell(100); 
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} 


void component_selecter::cancel() 


World* w=Get World(); 
w—Remove(this); 
delete this; 


i 


void component-selecter::okay() 


{ 


int state_value; 
the_ok_BS— Get Value(state_value); 
if(state_valueZ#0) 


the browser _BS—Set Value(1); 
the_ok _BS—Set Value(Q); 


void component-selecter:: Insert components() 


{ 


the-browser—Append("comp 1") 
the_browser—Append("comp 2") 
the_browser—Append("comp 3") 
the_browser—Append("comp 4"); 
the_browser—Append("comp 5"); 
) 
) 
) 
) 
) 


) 


“ee 


« 


7 


’ 


the_browser—Append("comp 7" 
the_browser— Append('comp 
the _browser— Append("comp 
the_browser— Append("comp 


’ 


) 
ve 


’ 


1 
Z 
3 
4 
5 
the_browser—Append("comp 6" 
7 
8 
9 
0 


? 


iz 


void component_selecter::Insert_-components(char +filename) 


{ 


char the-component([256]; 
ifstream infile(file name); 


infile >> ws; 
while(‘infile.eof()) 


{ 


infile.getline(the-component,256); 
the_browser— A ppend(the-component); 
infile >> ws; 


i 


oom 





ostrstream command; 
command < "rm " < filename < ends 
char *the_command=command.str(); 


system(the-command); 


§ 
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#include <InterViews/button.h> 
#include "delete_warning.h’” 
#include <InterViews/2.6/_enter.h> 





delete_warning::delete_warning(const char* name) : delete-warning_core(name) {} 
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#include <InterViews/message.h> 
#include <InterViews/strbrowser.h> 
#include <InterViews/button.h> 
#include "dependancy_selecter.h” 
#include <InterViews/world.h> 
#include <InterViews/2.6/_enter.h> 


dependancy -selecter::dependancy selecter(const char* name) : dependancy selecter core(name) 


i} 


void dependancy -selecter::Insert components() 


{ 


choice_.browser—Append({"comp 1 
choice_browser—Append("comp 2" 
choice_browser—Append("comp 3 
choice_browser—A ppend("comp 
choice_browser—Append("comp 5 
choice_browser—Append("comp 6 
choice_browser—Append("comp 7 

8 

9 

0 


J 


« 


’ 


4 
J 


a 


J 


’ 


) 
) 
) 
) 
) 
a): 
) 
) 
) 
) 


J 


J 


choice_browser— Append("'comp 
choice_browser— A ppend("comp 
choice_browser— A ppend("'comp 


3 


} 
9 


J 


void dependancy -selecter::new selection() 

{ 
int state_value; 
the_choice_BS— Get Value(state_value); 
if(state_valueZ#0) 


// get the new selection and check it against the 

// selected list if rt is not there than add it 

int selected index=choice browser—Selection(0); 

char *new-selection=choice _browser—String(selected index); 
if(selected _browser—Index(new -selection)<0) 


// not in the selected browser so append tt 
selected _browser— A ppend(new selection); 
the_choice_BS—Set Value(0); 


} 


void dependancy -selecter::remove-selection() 


{ 


int state_value; 
the_selected _BS—Get Value(state value); 
if(state_value#0) 


// remove the selected entry from the browser 
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int selected index=selected browser—Selection(0); 
selected browser— Remove(selected index); 
the_selected _BS—Set Value(0); 


} 


void dependancy -selecter::cancel() 


World* w=Get World(); 
w—Remove(this); 
delete this; 


} 


void dependancy -selecter::okay() { 
World+ w=Get World(); 
w—Remove(this); 
delete this; 
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#Hinclude ’error_viewer.h’ 

#Hinclude <InterViews/button.h> 
#Hinclude <InterViews/box.h> 
#include <InterViews/message.h> 
#Hinclude <InterViews/menu.h> 
#Hinclude <InterViews/texteditor.h> 
#include <InterViews/textbuffer.h> 
#Hinclude <InterViews/world.h> 
#Hinclude <InterViews/2.6/_enter.h> 
#include <strstream.h> 

#include <stream.h> 

#include <stdlib.h> 

#include <string.h> 


error-_viewer::error_viewer(const char+ name, char *error_file) : 
error viewer -core(name) 


ostrstream view_name_buffer; 

view.name-_bufler < "Error Messages" < ends; 
the_file name— Remove(default_message); 

delete default_message; 


Message* the-filesessage=new Message("error file", 
view_name-buffer.str(), 
Center); 

the file name—Insert(the_file message); 

the_file name—Change(); 


ifstream error(error file); 

if (error) 
ostrstream construct _buffer; 
while(!error.eof()) 


char text=error.get(); 


if(text#EOF) 


construct _buffer.put(text); 


le 
Ie 


- char *the-string=construct buffer.str(); 
int the_length=strlen(the string); 
the_buffer=new Text Buffer(the string ,the Jength,the length); 
the_editor—Edit(the_buffer); 


} 


else 


{ 


cerr < "UNABLE TO OPEN BODY FILE TO VIEW FILENAME IS "; 
cerr < errorfile << "\n"; 
ie 


Zo 


} 


void error_viewer::ok_action() 
World «w=GetWorld(); 


w— Remove(this); 
//delete this; 
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#Hinclude <InterViews/button.h> 
#tinclude <InterViews/streditor.h> 
#Hinclude <InterViews/filebrowser .h> 
#include ”input_file.selecter.h” 
#include ’error_viewer.h” 

#include <InterViews/2.6/_enter.h> 
#include <stream.h> 

#include <string.h> 

#include <strstream.h> 

#tinclude <InterViews/world.h> 
#include <sys/param.h> 

#include <stdlib.h> 

extern "C" 


{ 


extern char *getwd(char *); 
j; 


#define TEMP_ENVIRONMENT "TEMP" 
#define CAPS_ENVIRONMENT "CAPS" 
#define DEFAULT_-TEMP "/tmp" 
#define KWL_PREFIX "tmpkl" 
#define ERROR_PREFIX "tmperror" 
#define KWQ-PREFIX "tmpcl" 
#define SB-PROGRAM "sb" 


input_file_selecter::input file_selecter(const char* name) : 


char pathname[MAXPATHLEN]; 
getwd(pathname); 

psdl_files—Set Directory(pathname); 
spec-files—Set Directory( pathname); 
body_files—Set Directory(pathname); 
psd|_dir— Message(psd1 files— Get Directory()); 
ada_spec_dir— Message(psdl _dir—Text()); 
ada_body_dir— Message(psdl_dir—Text()); 


j 


void input_file_selecter::psdl_selected() 


{ 


int state_value; 
psdl_BS— Get Value(state_value); 
if(state_valueZ#0) 


int index=psd1_files—Selection(0); 


input_file_selecter_core(name) { 


if(psdl_files—IsA Directory (psdl_files— Path(index))) 


psdl_dir— Message( psd] files— Path(index)); 
ada-_spec_dir— Message(psdl files— Path(index)); 
ada_body-dir— Message( psd1_files— Path(index)); 
psd1_files—Set Directory(psdl_dir—Text()); 
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spec_files—Set Directory(psdl -dir—-Text()); 
body-_files—Set Directory(psdl-dir—Text()); 
psdl_file name— Message("'"'); 
spec_filename— Message("'"); 

body-file name— Message("'"'); 


else 


psdl_file name— Message(psd|_files— Path(index)); 
// update the other file names if the correct ones exist 
}; 
psdl_BS—Set Value(0); 
}; 
} 


void input_file-selecter::update_pdsl-_dir() { 
int state_value; 
psdl_dir_BS— Get Value(state_value); 
if(state_value40) 


// the user has entered a directory name of his own 
const char +temp-_directory=psdl_files— Normalize(psdl_dir—Text()); 
char *new-directory=new char[strlen(temp-directory)+1]; 
strcpy(new -directory,temp-directory); 
if( psdl_files—IsA Directory(new-directory)) 
{ 
psdl_dir— Message(new directory); 
ada-_spec_dir— Message(new -directory ); 
ada_body_dir— Message(new directory); 
psdl files— Set Directory(new directory); 
spec files—Set Directory(new directory); 
body_files—Set Directory(new directory); 
ie 
delete new_directory; 
psdl_dir_BS—Set Value(0); 


} 


void input_file_selecter::spec-selected() 
{ 
int state_value; 
spec files BS—Get Value(state value); 
if(state.value40) 
{ 
int index=spec files—Selection(0); 
if(spec_files—IsA Directory(spec files— Path(index))) 
{ 
ada-_spec_dir— Message(spec files— Path(index)); 
ada_body-_dir— Message(spec files— Path(index)); 
spec files—Set Directory(ada-spec dir—Text()); 
body-files—Set Directory(ada_spec-_dir—Text()); 
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else 


spec _file name— Message(spec files— Path(index)); 
// update the other file names if the correct ones exist 


If 
spec files BS—Set Value(0); 
ie 
} 


void input_file_selecter::update_ada_spec _dir() 

{ 
int state_value; 
ada-spec_dir_BS— Get Value(state_value); 
if(state_value#0) 


// the user has entered a directory name of his own 
const char *temp_directory=spec_files— Normalize(ada_spec_dir— Text()); 
char *new-_directory=new char{(strlen(temp_directory)+1]; 
strcpy(new -directory,temp directory); 
if(spec_files—IsA Directory(new-directory)) 
{ 
ada_spec_dir— Message(new-directory); 
ada_body-_dir— Message(new directory); 
spec files—Set Directory(new directory); 
body-files—Set Directory(new _directory); 
hr 
delete new_directory; 
ada_spec_dir_BS—Set Value(0); 
j; 
} 


void input_file_selecter::body-selected() { 
int state_value; 
body-files_BS— Get Value(state_value); 
if(state_valueZ#0) 


int index=body-files—Selection(0); 
if(body-files—IsA Director y(body_files— Path(index))) 


ada_body-dir— Message(body-_files— Path(index)); 
body-files—SetDirectory(ada_body-dir—Text()); 


else 


body-_file name— Message(body-files— Path(index)); 
te 
body-files.BS—Set Value(0); 


}; 
} 


void input_file_selecter::update ada_body-dir() 

{ 
int state_value; 
ada_body-dir_BS—Get Value(state_value); 
if(state_value40) 


// the user has entered a directory name of his own 

const char *temp-_directory=body-files— Normalize(ada_body_dir—Text()); 
char «new_directory=new char{[strlen(temp-_directory)+1]; 

strcpy(new -directory,temp directory ); 

if(body_files—IsA Directory(new-directory) ) 


ada_body-_dir— Message(new-directory); 
body _files—Set Directory(new-directory); 
le 
delete new directory; 
ada_body-dir_BS—Set Value(0); 


j 


void input_file_selecter::cancel() 


World «w=Get World(); 
w—Remove(this); 
delete this; 


} 


void input-_file_selecter::okay() 


{ 


int command_status; 
World «w=Get World(); 


char *psdl_file=NULL; 

char *spec_file=N ULL; 

char *body_file=N ULL; 

ostrstream psdl_file_buffer; 

ostrstream spec_file_buffer; 

ostrstream body-file_buffer; 

// vertfy that all of the selected items are files 

if( psdl_files—Selections()>0 && body-files—Selections() > 0 && 
spec_files—Selections() > 0) 

{ 


// something has been selected in each browser 


// so see uf they are all valid files 


int psdl_filenum=psdl_files—Selection(0); 

int spec_file num=spec -files—Selection(0); 

it body-_file-num=body files—Selection(0); 
if(!psdl_files—IsA Directory (psdl_files— Path(psdl_file num))) 
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// not a directory so get the filename 
psdl_file_buffer < psdl_files— Path(psdl_file num); 
psdl_file-buffer < ends; 

psd] _file=psdl file_buffer.str(); 


if('spec_files—IsA Directory(spec files— Path(spec file num))) 


// not a directory so get the filename 

spec file_buffer < spec files— Path(spec file num); 
spec_file_buffer < ends; 

spec file=spec file buffer.str(); 


if('!body_files—IsA Directory(body-files— Path(body file num))) 


// not a directory so get the filename 
body-file_buffer < body-files—Path(body file num); 
body_file_buffer < ends; 
body-_file=body-file_buffer.str(); 


i 
if(spec_fileZNULL && psdl_fileXNULL && body file#NULL) 
{ 


// all were valid files so process the addition 
char +temp_dir=getenv(TEMP_ENVIRONMENT); 


if(temp_dir==NULL) 


temp_dir=new char|strlen(DEFAULT_TEMP)-+ 1]; 
strepy(temp_dir, DEFAULT_TEMP); 


M 


char *error_file=tempnam(temp-_dir,"tmpa"); 
ostrstream command_buffer: 

command_buffer < SBLPROGRAM <<" ¢a ada "; 
command_buffer < psdl_file; 

command_buffer << " " < spec_file; 
command_buffer <<" " < body-file; 
command_buffer <<" > " < error_file < ends; 


ostrstream rm_buffer; 


rm_buffer << "rm " < error_file << ends; 


char +command=command_buffer.str(); 


command_status=system(command); 


if(command_status#0) 


// display error info 
error_viewer *error_view=new 
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error_viewer("Add Component", error-file); 
w—InsertApplication(error_view); 
char *rm=rm_buffer.str(); 
system(rm); 
else 
char «rm=rm_buffer.str(); 
system(rm); 


w—Remove(this); 
delete this; 


w—RingBell( 100); 


else 


w— Ring Bell(100); 


void input_file_selecter::new_psdl_file name() 


{} 


void input_file_selecter::new-spec file name() 


i} 


void input_file_selecter::new_body file name() 


i} 
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#Hinclude <InterViews/button.h> 
#include <InterViews/message.h> 
#include <InterViews/strbrowser.h> 
#include "keyword_selecter.h’” 
#include <InterViews/2.6/_enter.h> 
#include <stream.h> 

#include ”component_selecter.h’; 
#Hinclude <InterViews/world.h> 
#include <strstream.h> 

#include <stdlib.h> 

#include <string.h> 


#define TEMP_ENVIRONMENT "TEMP" 
#define CAPS_ENVIRONMENT "CAPs" 
#define DEFAULT-TEMP "/tmp" 
#define KWL_-PREFIX "tmpkl1" 
#define ERROR_PREFIX "tmperror" 
#tdefine KWQ_PREFIX "tmpcl" 
#define SB_-PROGRAM "sb" 


keyword selecter::key word selecter(const char *name):keyword-selecter core(name) 


{ 
} 


void keyword_-selecter:: 


okay() 
{ 


int command-status; 
// check buttonstate for a 0 value 


World *w = Get World(); 
// check to ensure that at least 1 keyword was selected 
if (selected _browser—Count() > 0) 


{ 


ostrstream command_buffer; 

ostrstream remove_buffer; 

char *caps_dir = getenv(CAPS ENVIRONMENT); 
char *temp-_dir = getenv(TEMP_EN VIRONMENT); 
if (temp-dir == NULL) 


temp_dir = new char[strlen(DEFAULT_TEMP) + 1]; 
strcpy(temp-dir, DEFAULT_TEMP); 


Ne 


char +list_file = tempnam(temp_dir, KWL_PREFIX); 
ofstream output(list_file); 
if (output) 
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// opened the kwl file fine 
int i; 
for (i = 0; 1 < selected_browser—Count(); 1++) 


{ 


// output each kw selected to the file 
output < selected_browser—String(i) < "\n"; 
IE 


output.close(); 


w—Remove(this); 


char +*result_file = tempnam(temp_dir, KWQ_PREFIX); 

char *error-file = tempnam(temp_dir, ERROR_PREFIX), 
command_buffer < SBLPROGRAM < " kwq ada " < list.file< " "; 
command_buffer < result_file< " > " < error_file < ends; 


remove_buffer < “rm "'; 
remove_buffer < list_file< " " < error-file; 
remove_buffer < ends; 


char *rm_command = remove. buffer.str(); 


char «command = command_bufter.str(); 


command_status=system(command); 
component-_selecter *component-selecter_by _key word; 
if (command_status£0) 


{ 


cerr < "AN ERROR OCCURED WITH COMMAND " < command < "\n"; 


else 


// no error occured so create the component selecter 
component-selecter_by keyword = new 

component_selecter("component_selecter_by_keyword"); 

// pass the result stream to selecter to process 
component-selecter_by keyword— 
Insert_components(result file); 


// remove temp files 
svstem(rm-command); 
delete command; 
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delete rm_command; 


w—InsertA pplication(component_selecter_by keyword); 
delete this; 


} 


else 


{ 


cerr < "UNABLE TO OPEN THE kwl FILE\N"; 


w—Remove(this); 
te 
} 
else 
{ 


// reset the button state 


ie 


le 


void keyword.-selecter:: 
cancel() 


World «w = Get World(); 
w—Remove(this); 
delete this; 


is 


void keyword-selecter:: 
new-selection() 
{ 


int state_value; 
the_choice_BS— Get Value(state_value); 
if (state_value # 0) 


// get the new selection and check it against the 
// selected list if it is not there than add it 
int selected index = choice_-browser—Selection(0); 
char *new-selection = choice_browser—String(selected index); 
if (selected browser—Index(new-selection) < 0) 
{ 
// not in the selected browser so append it 
selected _browser— Append(new selection); 
the choice_BS—Set Value(0); 
ie 
}; 
} 


void keyword -selecter:: 
remove-_selection() 
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j 


int state_value; 
the_selected_ BS— Get Value(state value); 
if (state_value # 0) 


// remove the selected entry from the browser 

int selected index = selected _browser—Selection(0); 
selected browser— Remove(selected index); 

the selected BS—Set Value(0); 


void keyword -selecter:: 


{ 


Insert _key words() 


int command_status; 
ostrstream command_buffer; 
ostrstream remove_buffer; 


char *caps-dir = getenv(CAPS_EN VIRONMENT); 

char *temp-dir = getenv(TEMP_ENVIRONMENT); 

if (temp_dir == NULL) 

{ 
temp-dir = new char[strlen(DEFAULT_TEMP) + 1); 
strepy(temp-_dir, DEFAULT_TEMP); 


}; 


command_buffer < SB_-LPROGRAM <<" kwl ada "; 
char +list_file = tempnam(temp_dir, KWL_PREFIX); 
char *error_file = tempnam(temp-_dir, ERROR_-PREFIX); 
command_buffer < list.fle< " > " < error_file < ends; 


remove_buffer < "rm "; 
remove_buffer < list_fille <<" " < error_file < ends; 


char *rm_command = remove_buffer.str(); 


char *command = commandbuffer.str(); 
command.status=system(command); 

if (command.status==0) 

{ , 
// no error occured so read in the kwl 
ifstream kwf(list_file); 
if (kwf) 


char *«next_keyword = new char(256]; 
// file opened fine 
while (‘kwf.eof()) 
kwf.getline(next_key word,256); 
kwf > ws; 
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choice_browser— A ppend(next keyword); 


le 
} 


else 

{ 
cerr < "UNABLE TO OPEN OUTPUT FILE FOR COMMAND "; 
cerr < command < "\n"; 


// display error info 
cerr < "AN ERROR OCCURED WITH COMMAND " < command < "\n"; 


|e 


// remove temp files 
system(rm_command); 
delete command; 
delete rm_command:; 
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#Hinclude <InterViews/button.h> 
#Hinclude <InterViews/box.h> 
#include <InterViews/message.h> 
#include <InterViews/menu.h> 
#Hinclude <InterViews/texteditor.h> 
#Hinclude <InterViews/textbuffer.h> 
#Hinclude <InterViews/world.h> 
#include ’psdl_viewer.h” 

#include ’spec_viewer.h’” 

#include "save_browser_dialog.h” 
#include “delete_warning.h’” 
#include <string.h> 

#Hinclude <InterViews/2.6/_enter.h> 
#include <strstream.h> 

#include <stream.h> 

#include <stdlib.h> 


#define TEMP_ENVIRONMENT "TEMP" 
#define CAPS_ENVIRONMENT "Caps" 
#define DEFAULT_TEMP "/tmp" 
#define PSDL_PREFIX "“tmpvp" 
#define SPEC_PREFIX "tmpvs" 
#define BODY_PREFIX "tmpvb" 
#define ERROR_-PREFIX "tmperror" 
#define SB_-PROGRAM "sb" 


psdl_viewer::psdl_viewer(const char* name) : psd|l_viewer_core(name) 
{ 
component_name=(char *)name; 
ostrstream view_name_buffer; 
view_name-_buffer < name < "PSDL Specification" < ends; 
the file name— Remove(default_message); 
delete default_message; 


Message* the_file.message=new Message("file_name", 
view_name_buffer.str(), 
Center); 

the file name—Insert(the file message); 

the file name—Change(); 

// get-the files from the softbase and open the psdl file 


int command_status; 
ostrstream command_buffer; 
ostrstream remove_buffer; 


char ¥*caps_dir = getenv(CAPS_ENVIRONMENT); 
char *temp_dir = getenv(TEMP_ENVIRONMENT); 
if (temp_dir == NULL) 


temp_dir = new char([strlen(DEFAULT_TEMP) + 1]; 


310 





strcpy(temp-dir, DEFAULT-TEMP); 


Fs 


command_buffer < SB-PROGRAM <" cv ada " < name; 


psdl_file = tempnam(temp_dir, PSDL_PREFIX); 
spec_file = tempnam(temp-dir, SPEC_PREFIX); 
body-file = tempnam(temp-dir, SPEC_PREFIX); 


char *error_file = tempnam(temp_dir, ERROR_PREFIX); 


command_buffer < " 
command_buffer < " 


command_buffer < " 


" < psdi_file< " " < spec-file; 
" < body-file; 


> " < error_file < ends; 


remove_buffer < "rm "' < error-_file < ends; 


char *command = commandc_buffer.str(); 
command_status=system(command); 
if (command_status==0) 


{ 


// no error occured so read in the psdl_file 
ifstream psdl(psdl_file); 


if (psdl) 


ostrstream construct _buffer; 


while(!psdl.eof()) 


char text=psd].get(); 
if( text ZEOF) 


tf 
ie 


construct _-buffer.put(text); 


the string=construct buffer.str(); 

int thetength=strlen(the-_string); 

the_buffer=new TextBuffer(the string ,the length,the length); 
the-editor— Edit(the_buffer); 


cerr < “UNABLE TO OPEN» PSDL FILE FOR COMMAND "'; 
cerr < command < "\n"; 


} 
else 
{ 
}; 

} 

else 

{ 


// display error info 
cerr < "AN ERROR OCCURED WITH COMMAND " < command < "\n"; 
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// remove temp files 
char *remove-command=remove_buffer.str(); 
system (remove_command); 
delete remove-command; 
delete command; 


} 


void psdl_viewer::_Saveas() 


{ 


ostrstream defname_buffer; 

def name_buffer < component_name < ".psdl" < ends; 

char *def_name=def_name_buffer.str(); 

save_browser-_dialog *save_browser=new save_browser -dialog(def_name); 
World «w=Get World(); 

w—lInsertTransient(save_browser,this); 

boolean save_flag=save_browser— Accept(); 

if(save_flag) 


ofstream output_file(save_browser—file_name()); 
output file < the-string; 
output_file.close(); 


Is 


w—Remove(save_browser); 
delete save _browser; 


} 


void psdl_viewer::_Print() { 
/* unimplemented */ 
} 


void psdl_viewer::_Delete() 
{ . 
World* w=GetWorld(); 


delete_warning *warning=new delete_warning("the_warning"); 


w— Insert Transient(warning, this ); 
if( warning— Accept()) 


// create list of components 
int command-_status;: 


BLY 





ostrstream command_buffer; 
ostrstream remove-_buffer; 


char «caps_dir = getenv(CAPS_EN VIRONMENT); 
char *temp-_dir = getenv(TEMP_EN VIRONMENT); 
if (temp-dir == NULL) 


temp_dir = new char{strlen(DEFAULT_TEMP) + 1]; 
strepy(temp_dir, DEFAULT_TEMP); 


lg 

command_buffer < SB-PROGRAM < " cd ada "; 
command_buffer < component_name < " "; 

char *xerror-file = tempnam(temp-dir, ERROR_PREFIX); 
command_buffer <<" > " < error-_file < ends; 


remove_buffer << "rm "'; 
remove_buffer < error_file < ends; 


char *rm_command = remove_buffer.str(); 


char *command = commandbuffer.str(); 


// put dialog here to ensure this 1s what you want 


} 


command_status=system(command); 
if (command_status#0) 


{ 


// display error info 
cerr < "AN ERROR OCCURED WITH COMMAND " < command < "\n"; 


ie 


// remove temp files 
system(rm_command); 
delete command; 
delete rm_command; 


EB 
w— Remove( warning); 
delete warning; 


void psdl_viewer::_Quit View() 


{ 


World +w=Get World(); 

w—Remove(this); 

ostrstream remove_buffer; 

remove_buffer << "xm " < psdl_fle<" " < spec-file; 
remove_buffer <<" " < body-file < ends; 
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char +remove=remove_buffer.str(); 
system(remove); 


delete the-string; 
delete the_buffer; 
//delete this; 


} 


void psdl_viewer::_Find() { 
/* unimplemented */ 
} 


void psdl_viewer::view_spec-action() 


World «w=Get World(); 

spec_viewer *new_view=new spec_viewer(component name, 
spec_file, 
body file); 


w—InsertApplication(new_view); 


} 


void psdl_viewer::Handle (Event& e) 


{ 
ie 
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#Hinclude <InterViews/button.h> 
#include <InterViews/streditor.h> 
#Hinclude <InterViews/filebrowser.h> 
#include <InterViews/world.h> 
#include ”query_file_dialog.h” 
#Hinclude <InterViews/2.6/_enter.h> 
#include <stream.h> 

#include <string.h> 

#include <sys/param.h> 

#include <stdlib.h> 

#include <strstream.h> 

extern "C" 


{ 


extern char *getwd(char *); 


ie 


query -file_dialog::query_file_dialog(const char* name) : query-file_dialog_core(name) 
{ 

char pathname[MAXPATHLEN]; 

getwd(pathname); 

the _file_browser—Set Directory(pathname); 

directory name— Message(the file_browser—Get Directory()); 


} 


void query -file_dialog::file.name_action() 


{ 
World *«w=Get World(); 


// ensure file does not already exist 
int state_value; 
the file name_BS— Get Value(state_value); 
if(state_value£0) 
int the index=the_file_browser—Index(the file name—Text()); 
if(the_index > 0) 
w— Ring Bell(100); 


else- 


// update the save browser button to 1 to indicate 
// success 


the file_-browser—Select(the index); 
dialog_BS—SetValue(1); 


the_filename.BS—Set Value(0); 
Hf 


} 


void query -file_dialog::directory_action() 
{ 
World *«w=Get World(); 
int state_value; 
directory name_-BS— Get Value(state_value); 
if(state_value#0) 


// the user has entered a directory name of his own 
const char 
*temp-_directory=the file_browser— Normalize(directory name—Text()); 

char *new-directory=new char{[strlen(temp-directory)+ 1]; 

strepy(new directory,temp directory); 

if( the _file_browser—IsA Directory(new-directory)) 

{ 
directory name— Message(new directory); 
the_file_browser—Set Directory(new directory); 


w—RingBell(100); 
ie 
delete new_directory; 
directory name_BS—Set Value(Q); 


} 
void query -file_dialog::file_browser_action() 


int state_value; 
file. browser _BS— Get Value(state_value); 
if(state_valueZ0) 


int index=the file_browser—Selection(0); 

if(the_file-browser—IsA Directory(the file browser— Path(index))) 

{ : 
directory name— Message(the file_-browser— Path(index)); 
the file_browser—Set Directory(directory name—Text()); 


the_file name— Message(the file_-browser—String(index)); 
dialog-BS—SetValue(1); 
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file_-browser_BS—Set Value(0); 
je 
} 


void query _file_dialog::cancel_action() 


{ 


int state_value; 
cancel_BS— Get Value(state_value); 
if(state_valueZ#0) 


// a value other than I indicates false 
dialog-BS—Set Value(2); 
cancel_BS—Set Value(0); 


Fs 
void query -file_dialog::okay_action() 
World «w=Get World(); 
int state_value; 


okay._BS—Get Value(state_value); 
if(state_value#0) 


int the index=the file_browser—Index(the file name—Text()); 
if(the_index < 0) 


// file already does not exists 
w—RingBell( 100); 


else 


// update the save browser button to I to indicate 
// success 


dialog-BS—Set Value(1); 


}; 
okay-_BS—Set Value(0); 


} 


const char *query_file_dialog::file-name() 


{ 


ostrstream full_file.name; 
full_file name < the_file_browser—GetDirectory(); 
full_file name < the_file.name—Text(); 


return full_file.name.str(); 
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#Hinclude <InterViews/button.h> 
#Hinclude <InterViews/streditor.h> 
#Hinclude <InterViews/filebrowser.h> 
#Hinclude <InterViews/world.h> 
#include ’save_browser_dialog.h’” 
#Hinclude <InterViews/2.6/_enter.h> 
#include <stream.h> 

#Hinclude <string.h> 

#include <sys/param.h> 

#include <stdlib.h> 

#include <strstream.h> 

extern "C" 


{ 


extern char *getwd(char *); 


6 


save_browser -dialog::save_browser -dialog(const char* name) : save_browser -dialog_core(name) 


{ 


default name=(char *)name; 

char pathname[MAXPATHLEN]; 

getwd(pathname); 

the file_browser—Set Directory(pathname); 

the_directory name— Message(the file _browser—GetDirectory()); 
the file.name— Message(default_name); 


} 


void save_browser -dialog::file_-browser_action() 


{ 


int state_value; 
file. browser_BS— Get Value(state value); 
if(state_value40) 


int index=the-file_browser—Selection(0); 
if(the_file_-browser—IsA Directory(the file browser— Path(index))) 


{ 


the_directory name— Message(the file browser—Path(index)); 
the file_-browser—Set Directory(the directory name—Text()); 


Ir 
file.browser_BS—Set Value(0); 


ie 
} 


void save_browser -dialog::update_file_name() 
World «w=GetWorld(); 


// ensure file does not already erist 
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int state_value; 
file name_BS— Get Value(state_value); 
if(state_value#0) 


int theindex=the file _browser—Index(the file name—Text()); 
if(the_index > 0) 


// file already erists so do not accept it 
w—RingBell(100); 


else 


// update the save browser button to 1 to indicate 
// success 
dialog-BS—Set Value(1); 


} 


file_name_BS—Set Value(0); 
Ip 


} 


void save_browser -dialog::update_directory() 

{ 
World *«w=Get World(); 
int state_value; 
new_directory BS—Get Value(state_value); 
if(state_value#0) 


// the user has entered a directory name of his own 
const char 
*temp-_directory=the file _browser— Normalize(the_directory name— Text()); 
char *new-_directory=new char{strlen(temp-directory )+1]; 
strcpy(new -_directory,temp directory); 
if(the file_browser—IsA Directory(new directory )) 
{ 
the_directory name— Message(new directory); 
the file_browser—Set Directory(new directory); 
J 


else 


{ 
, 


delete new-directory; 
new -directory BS—Set Value(0); 


w— Ring Bell( 100); 


} 


void save_browser -dialog::cancel_action() 


{ 
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int state_value; 
cancel _BS—Get Value(state_value); 
if(state_valueZ0) 


// a value other than 1 indicates false 
dialog-BS—SetValue(2); 
cancel_BS—Set Value(0); 


} 


void save_browser _dialog::ok_action() 


{ 
World «w=Get World(); 


int state_value; 
ok_BS— Get Value(state_value); 
if(state_value#0) 


{ 


int the index=the file_browser—Index(the file name—Text()); 
if(the_index > 0) 


// file already erists so do not accept it 
w— RingBell(100); 


else 


// update the save browser button to 1 to indicate 
// success 
dialog-BS—Set Value(1); 


Pe 
ok_BS—SetValue(0); 


} 


const char *save_browser -dialog::file-name() 


{ 


ostrstream full_file_.name; 
full_file name < the_file.browser—Get Directory (); 
full_file name < the_file.name—Text(); 


return full_file.name.str(); 
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#tinclude <InterViews/painter.h> 
#Hinclude <InterViews/shape.h> 
#Hinclude <InterViews/sensor.h> 
#include <InterViews/world.h> 
#include ”SB_main_menu.h” 

#include <InterViews/2.6/_enter.h> 


static PropertyData properties[] = { 
#include ”softbase-props” 
{ "xtitle","CAPS SOFTBASE"}, 
{ nil } 
j; 


static OptionDesc options{] = { 


{eae 
ts 


int main (int argc, char** argv) { 
World* w = new World("*«*«*", argc, argv, options, properties); 
SBumain-menu* themain-menu = new SB_main_menu("the_main_menu"); 
w—InsertApplication(themain_menu); 


w—Run(); 


delete w; 
return 0; 
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#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


<InterViews/button.h> 
<InterViews/box.h> 
<InterViews/message.h> 
<InterViews/menu.h> 
<InterViews/texteditor.h> 
<InterViews/textbuffer.h> 
<InterViews/world.h> 
”*spec_viewer.h” 
"psdl_viewer.h” 
”pody_viewer.h” 
”save_browser_dialog.h” 
<InterViews/2.6/_enter.h> 
<strstream.h> 

<stream.h> 

<stdlib.h> 

<string.h> 


spec_viewer::spec_viewer(const char+# name, chiar *spec_file, char *body_file_in) : 


{ 


spec viewer .core(name) 


component_name=(char *)name; 

body -file=body_file_in; 

ostrstream view_name_bufler; 

view.name-_buffer < componentname < "Implementation Specification" < ends; 
the file name— Remove(default_message); 

delete default_message; 


Message the_fileamessage=new Message("file_name", 


view_name_buffer.str(), 
Center); 


the file name—Insert(the file_message); 
the file name—Change(); 


ifstream spec(spec file); 
if (spec) 


ostrstream construct _buffer; 
wlule('spec.eof()) 


char text=spec.get(); 
if(textZEOF) 
{ 


le 


construct _buffer.put(text); 


5 

the_string=construct buffer.str(); 

int the ength=strlen(the-string); 

the_buffer=new TextBuffer(the string ,the Jength,the Jength); 
the editor— Edit(the buffer); 


else 
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j 


cerr < “UNABLE TO OPEN SPEC FILE TO VIEW FILENAME IS “ 


cerr < spec-file << "\n"; 


i 


void spec_viewer:: Saveas() 


{ 


j 


ostrstream def_name_buffer; 

def_name_buffer < component_name < ".spec.a" < ends; 

char *def_name=def_name_buffer.str(); 

save_browser_dialog *save_-browser=new save_browser -dialog(def_name); 
World «w=Get World(); 

w— Insert Transient(save_browser, this); 

boolean save_flag=save_browser—Accept(); 

if(save_flag) 


{ 


ofstream output_file(save_browser—file_name()); 
output_file < the-string; 
output _file.close(); 


ie 


w— Remove(save_browser); 
delete save_browser; 


void spec_viewer::_Print() { 


j 


/* unimplemented */ 


void spec_viewer::_Quit View() 


{ 


j 


// remove temporary file and remove application from world 
World «w=Get World(); 
w—Remove(this); 


//delete this; 


void spec_viewer::_Find() { 


j 


/* unimplemented */ 


void spec_viewer::view _body-action( ) 


{ 


World *w=GetWorld(); 


body_viewer *new_view=new body-_viewer(component_name, 
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a. Ok Be Ah te chet Ai Matte Bite PA an ta en OTN AL bs Lick de Bere Ath iden he le, Bhat Ni ty Sy we 
Pent te ee tee ko Bide Oh ad ee Le tema ek a a arr ee Dee ae a a ie, a od a +r eewahs be - 
2 a espe FR qe VE EH HOMES ED HA aE Uy ted Ae, Pic ee bet Sale A eee ao re 
Tear rr tt te ee as th ee ie hy Tee Dd ie Ree ESTHET Lee eee ae * ‘ 
Brat eet PU CT fk Pose te ketene he, sh Sith Cin leas tah Dos ra whihmeredcer a ; A 
pny per Py Pere we yt hk oe oS a ee ee oe A Aili Lee a we | & , a 
*, fy tage Fe fe Pat oS a : x 
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